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USER CLUB MANAGER APPOINTED 

I am pleased to welcome David Middleton who has 
joined Commodore as User Club Manager. David is a 
Mechanical Engineer with extensive BASIC/Machine 
Code experience. Having run his own PET user group, 
he has a special interest in assisting local user 
groups solve the problems of getting off the ground. 
David has been heavily involved in the editing of 
this edition of CPUCN and will be taking over the 
editorship completely as from the first issue of 
Volume 3. 

Whilst it is sad to hand over a job which has 
brought me a great deal of satisfaction it is 
rewarding to know that the editorial reins are being 
handed over to someone who has a keen interest in 
developing and extending the service offered to User 
Club members. I will not be leaving CPUCN 
completely as in the future I will be contributing 
application stories. I will also be involved with 
the development of sister publications like MISAC, a 
copy of which is enclosed. Although MISAC is 


Commodore News 

By Andrew Goltz 

AFTER THE SHOW 

Now that the dust has settled down after the 
tremendous success of the World's First PET Show, 
and CPUCN has returned to its usual format, it seems 
a good idea to review the present position. Several 
thousand people packed the main ballroom at the Cafe 
Royal and all exhibitors agreed that their 
participation had been extremely worthwhile. It 
seems likely that Commodore will be making the PET 
Show an annual event, if so then the 1981 event will 
have to be moved to a more spacious venue! It is 
unfair to make a selection from the many varied 
exhibits on the fifty or so stands but special 
mention should be made of the following: - the BMB 
Compuscience MUPET system (now being distributed in 
the UK by Kobra Systems through the Commodore Dealer 
Network.) - the new Super PET functioning as a 
remote terminal - and as a wordprocessor running 
WordPro 4. The position as regards the availability 
of the 80 column machines is that currently each of 
the Commodore Commercial Systems Dealers is 
receiving a single machine for training and 
familiarisation purposes and dealer's engineers are 
busy attending special 8000 series engineering 
courses being run by the Commodore Training 
Department. 

It is expected that the first 8000 series machines 
will be delivered to users in about 60 days time, 
which is also the period within which a series of 
software application packages, currently under 
development, will be released• 

The PET Show User Club seminars also provided a 
forum in which members could meet Commodore staff, 
and a number of outside speakers gave first rate 
presentations. A number of user suggestions are 
being implemented, and one that readers will 
immediately notice is the new CPUCN UPDATE section 
in support of Commodore's Business Software- 


intended primarily for use in schools and colleges a 
copy is being sent to all User Club members as part 
of our policy of keeping you up to date with all the 
latest Commodore literature, and I feel that much of 
the material (especially the Sheridan College 
article) will be of general interest to users 
outside the field of education. After you have 
finished with MISAC why not hand it over to a 
teacher friend. 

One of the most popular speakers at the PET Show 
seminars was Jim Butterfield, who I would like to 
personally thank for flying over to the UK at 
extremely short notice. Jim brought over with him a 
number of excellent programs which he has put into 
the public domain. These include CROSS REF and IEEE 
WATCH which are being reproduced in CPUCN, an 
improved edition of SUPERMON and a superb version of 
ADVENTURE which runs on a 32K PET and disk unit! 
David Middleton will be bringing these programs with 
him when he visits local user groups and members 
will be free to make their own copies. Please write 
to David if your group is interested. 
















ATTENTION COMPAY & WORDPRO III USERS 


Recent batches of PETs have somewhat 
changed the balance of our video circuitry. 
The net result is that the fast screen poke 
has become extremely unreliable to use. 

The fast screen poke is designed to speed 
up the print speed on the PET'S screen. 
There are two versions of it, as follows: 


Poke Location 

Fast 

Slow 

59458 

60 

30 

59490 

62 

30 


Version 1. is used in Comwordpro III, and 
version 2. is used in Compay. In the light 
of recent hardware developments, both 
versions must now be classed as OFFICIALLY 
NOT SUPPORTED. 

Compay updates, effective June 1 1980, 
include removal of the fast screen poke. 
Comwordpro III is now being shipped without 
the poke as well. If you have an old 
version of WP3 and are experiencing 
difficulties, do the following: 

1. Load Comwordpro III, DON'T TYPE RUN. 

2. POKE 5348,234:POKE 5349,234:P0KE 
5350,234 

3. Re-save Comwordpro III. 

This will remove the fast screen poke from 
your version of Comwordpro III. 


M J R Whitehead 



As you will be aware from the advertisement 
on the back page of our Previous 
newsletter, a company called Audiogenic 
(tel. Reading [STD CODE 0734] 595269) is 
handling mail order requests for ail 
Commodore cassette software, and a range of 
the disk products as well. A growing 

ot’M-x* for th. Pet ar. .1.0 
available from them, but the mam reason 
for mentioning them is that they are 
to distribute copies of our software 
catalogue, and the new one has just been 
published. I'd like to draw your attention 
to this catalogue, as we have announced in 
it a large number of new cassette titles 
for the PET. These cover a wide range ot 
applications from word processing to 
gardening, from utilities to languages, and 
from entertainment to education. 


continue supplying value-for-money 
software, we obviously need a continuous 
supply of good programs. This is where y 
come in. This month I'd like to start a 
competition, which is, of course, to write 
a program, and there will be six 
categories, broken down into two games and 
four- educational programs. These are 


1) Simulation of a board game. 

2) Arcade quality game (like Invaders etc) 


3) Physics tutorial program. 

4) Chemistry tutorial program. 

5) Mathematics tutorial program. 

6) Biology tutorial program. 


The last two in particular have seen a 
great leap in quantity and particularly 
quality over the last few months, as more 
and better programs have become available. 

Our Arcade series of games has produced 
three wonderfully entertaining and ve £ y 
addictive games, and all three show what 
can be achieved graphically by th ® use °^ 
machine code. On the education side, there 
are nine new titles in the current 
catalogue, and these too show what an 
increaS there has been in the standard of 
programming since the PET first appeare . 

I don’t apologise for boasting about these 
programs - after all, we didn’t write them! 
Our only achievement is in selecting and 
distributing the best out of a very large 
number of programs that are written for t 
PET and to make sure that you don t have 
any worries when buying a program from 
Commodore. 

But if we don't write them, who does ? The 
answer may well suprise you - you do! If 
it wasn't for the contributions of people 
like yourselves, PET devotees, there 
wouldn't be such a good library of programs 
for people to enjoy. So, people like Bob 
Chappell, Deri James, Ted Landsler, Andrew 
Colin, A. Russell Wills, and the rest, take 
a pat on the back. And if I didn’t mention 
your name, it's only because space 
precludes it! 

In order to maintain our standards, and to 


Sxactly what format these programs can take 
I'll leave up to you. Suffice it to say 
that we are looking for a very high 
quality. The closing date will be two 
months from the date you receive this 
newsletter, and the best program in each 
category will be published in our library 
of programs, and the winning authors will 
get a ten per cent royalty on the programs 
that we sell. If your program is 
reasonably succesful (and a good program 
usually is!), this could amount to 
something in the nature of 20 to 30 pounds 
sl w66k< Can't be bad* 

So, budding geniuses, let’s see ’ what ^ 
can do. Send your entries (on tape please) 


Pete Gerrard, 

Cassette Library Manager, 
Commodore Business Machines, 
818 Leigh Road, 

Trading Estate, 

Slough, 

Berks. 


Full details of all the winning programs 
will be published in 3 newsletters time. 
Good luck, and I look forward to seeing 
your programs. 



This latest publication from Adam Osborne/McGraw 
MU maintains the excellent standards established 
hy ihSr earlier classics such as 'An Introduction 
to Microcomputers and '6502 Assembly Language 
Programming • 

The book is a well written, comprehensive guide to 
PET that will be found useful by the novice, 
beginning programmer and experienced PET U ^ r ; The 

material in the book being well signposted to 


As expected in Osborne publications diagrams and 
worked examples are extensively used throughout the 
book and they successfully compliment the main text. 
A new departure is the use of photographs and screen 
displays which help to make the book friendly for 
the absolute beginner. 

Sometimes the book appears to be guiity of pr °^ d ^ 8 
too much information e.g. the section of PET trivia 
includes a discussion of what happens when three 
keys on the PETs keyboard are depressed 



simultaneously! But in most instanaces the reader 
is warned that he is reaching a section which may be 
skipped at first and often such sections provide 
invaluable information on PET quirks which provide 
the experienced PET programmer with useful reference 
material. 

The book includes an introductory chapter that 
explains the basic concepts common to microcomputers 
and looks at PET's special features. The next 
chapter called 'Operating The PET' deals thoroughly 
with the installation, correct use and maintenance 
of the PET hardware. The next two chapters deal 
comprehensively with PET BASIC commands and 
statements and the techniques of writing, editing 
and saving programs. Chaper 5, entitled 'Making the 
most of PET features', discusses string handling, 
programmed cursor movement, graphics, animation and 
file handling. PET special features, including the 
graphics character set, internal clock and Poking 
screen memory, are well covered. The final chapter 


will be especially useful for advanced programmers 
as it deals with the details of PET's own operating 
system, and introduces the concept of Machine Code 
programming. 

A comprehensive series of appendices provide memory 
maps and tables for BASIC 1.0 and BASIC 2.0, and an 
excellent bibliography completes a well thought out 
and carefully researched book. I have no hesitation 
in recommending a copy for every PET user's 
book-shelf. 

The book may be ordered via your local Commodore 
Dealer or direct by post from Audiogenic Software, 
P.0. Box 88, Reading, Berks. Tel. 0734 595269. 


(Also received 'PET and the GP IEEE/488 BUS' 
published by Adam Osborne/McGraw Hill which will be 
reviewed in CPUCN 2.8.) 


asm*. ■ ■■ ■ W.T. Garbutt 

Computer philosophy Mississauga, Ont 


"It was the best of times, it was the worst 
of times, it was the age of wisdom, it was 
the age of foolishness, it was the epoch of 
belief, it was the epoch of incredulity, it 
was the season of Light , it was the winter 
of despair, we had everything before us, we 
had nothing before us, we were all going 
directly to Heaven, we were all going 
directly the other way—in short, the 
period was so much like the present period, 
that some of its noisiest authorities 
insisted on its being received, for good or 
for evil, in the superlative degree of 
comparison only." 

So began Charles Dickens in the famous 
introduction of the 18th Century setting 
for "A Tale of Two Cities" over a century 
ago! As with all great literature, the 
vision Dickens gives is perhaps centuries 
ahead of its time, in any event just as 
germane today as it was when Dickens first 
wrote it. Today Western civilization is on 
a precipice; the brink of a great leap 
forward for Humanity or a momentary or 
perhaps fatal fall. 

While less than one-sixth of the world's 
population consumes over 80$ of world 
resources, hundreds of millions fight daily 
to survive on the remainder. And those who 
survive remember! 

For the fortunate few, the leap forward has 
begun. While scholars will argue for 
generations as to the precise time, (there 
probably is not one ) the race to the Moon 
will likely symbolize the start for many. 
None of the generation of the sixties will 
forget President Kennedy's proclamation to 
reach the Moon by the end of that decade ( 
nor will they likely forget his tragic and 
senseless death). The last brief decade 
has witnessed a massive expansion of 
knowledge, the extent of which is beyond 
human comprehension. If all knowledge 
known were increased by the order of a 
magnitude in the 70's, is there any doubt 
the increase will be two orders of 
magnitude this decade? Is there any 
certainty that this exponential knowledge 
explosion will quench humankinds' thirst 


by the 21st century? 

Yes. There is serious doubt if the 
knowledge does not bring with it a 
maturity, a compassion for fellow man, a 
sharing and a sacrifice . The dismal 
scenario has already been summarized by Mr. 
Dickens in the 18th century: war, 
pestilence, famine and destruction. And 
even with our present limited knowledge is 
there any doubt that a similar order of a 
magnitude, an exponential order of horror 
could soon be our legacy. 

There are disquieting signs that the future 
optimism, our traditional western belief in 
historical progress may be open to serious 
question. What Western civilization must 
guard against is introspection. Cultural 
isolation will almost certainly provide the 
impetus for an apocalypse. This 
introspection can take many forms. Most 
familiar to the readers of The Transactor 
is the discipline of electronics and more 
particularly computers. 

Certainly this is a paradox. The computer, 
the single most important element in the 
recent knowledge explosion, the genie that 
could provide the key to the crucial 
inter-relationships in what at present is 
an incomprehensible mass of data, surely 
could not be viewed as retrenchment. On 
the contrary if a limited number of well 
educated and affluent people become 
preoccupied with the computer solely for 
their own personal intellectual 
gratification that is precisely what could 
happen. 

However it need not happen. What is 
required is an atmosphere of freedom, 
freedom of thought, expression, knowledge 
freely accessible to all as well as freedom 
from hunger and poverty. A vast 
educational challenge exists certainly as 
great as that witnessed in the race to the 
Moon. And the micro-computer is ideally 
suited as a central instrument in meeting 
the challenge. 

One of the major micro-computer 





applications will be communications. The 
micro-computer must become as universally 
used as the light bulb. It must be 
available to the 'outbacks* of civilization 
as well as the present temples of Western 
civilizations (Universities). Computer 
literacy must become, with literacy, the 
prime objective of man after the basic 
survival improvements over hunger and 
poverty. No longer must language create 
communication barriers between nations, no 
longer may state bureaucracies hide 
knowledge clandestinely or inadvertently, 
no longer can corporations shape consumer 
habits through controlled ignorance. 

These freedoms of course carry risks. 

Change creates instability. Governments 
and citizens fear unbridled change 
especially anarchy. But the risks of not 
accepting the challenge is greater. We 
could lose all the significant advances 
that civilization to date has witnessed. 

The present world population could turn 
away from a Western tradition that failed 
to solve humankinds most immediate 
problems. 

The computer can become a central tool to 
manage today's knowledge, freeing man's 
creative and underutilized imagination, 
permitting him time to examine himself. 

Today Western civilization senses the 
future. One has only to witness the long 
lineups and multi-billion dollar box office 
receipts for 'science fiction' movies. 
Today's audiences are seeing implemented 


yesterday's dreams. And super realistic 
depictions of tomorrow. The audiences 
understand, as never before, the 
revolutionary technological concepts. 

Indeed they will accept nothing less. In 
many instances these special effects were 
only made possible with the aid of the 
computer. We must not permit this 
phenomenon to become a form of escapism. 

It is important to feed the scientific 
needs of our citizens. But we must also 
consider the equally important spiritual 
needs, eg. beliefs and values. 

The computer can provide assistance to man. 
For every self-gratifying use there is 
equally a use that will help meet the 
challenges. From simple energy 
conservation methods such as controlling 
house temperature, or arranging car pools 
to complex techniques to improve work 
effiency computer uses abound to cut waste. 

A recent industry census indicated there 
are over 500,000 computers in personal use 
today. Within two years personal ownership 
is projected to quintuple. Think of the 
immense number of applications such a user 
population can generate. 

As a member of the micro-computer 
community, ask yourself the question "What 
uses can I derive and implement that will 
aid, no matter how insignificant it may 
appear, in meeting the challenges of 
today?" Talk to fellow users , share your 
ideas and you will likely find yourself in 
the vanguard of tommorrow's leaders. 


T each in 

SAVING PROGRAMMES UNDER DEVELOPMENT. 


d. VERIFIES the program. 

The listing is shown at the end of 


n T A "1 O 


When developing and testing programs using 
disk files there is a significant risk of a 
hang-up due to simple syntax errors. And 
if you haven't saved the program, then bang 
goes a few hours work straight down the 
drain! 

In all my programs I have a standard 
subroutine called "SAVE PROGRAM UNDER 
DEVELOPMENT" or "SPUD"! located in lines 
60000 to 60999: I write my programs in 
modules and after completion of each 
module, before testing, I save the program 
by executing a direct RUN 60000. 

The routine does the following:- 

a. Picks up the program title from a 
standard position in the first 
line of the program by peeking 
the memory. (Because I always lay 
out my programs in a standard 
way, I know the first character 
of the title will always be in 
the same location.) 

b. Adds the first four digits of the 
time as held in TI$ to act as a 
generation number. 


2. SKELETON PROGRAMS 

On several occasions, it has been 
pointed out how useful it is to lay 
out programs using blocks of line 
numbers in a standard way. After a 
while, you find yourself adopting the 
same line number blocks to perform 
similar functions whenever they appear 
in one of your programs. For example, 
in most of my programs using a menu to 
display options for the operator to 
select, the menu display is coded in 
block 2000-2999 and the selection 
routine in 2100-2199* 

If you find you have adopted some 
similar convention of your own, why 
not set up a skeleton program, in 
order to save a fair amount of typing 
time at the start of each coding 
session. In this skeleton program 
will be the REM statements for the 
title and preliminary blocks plus the 
actual coding for all the standard 
subroutines which are likely to appear 
in most of your programs. 


SAVES the program using the 
combined title and time. 


My own skeleton program runs to 1000 


characters which I would have had to 
type in each time. It contains a 
Title block, a Preliminaries block and 
subroutines for Keyboard input, Get a 
valid character, Cash right align, 
Delay for 2.5 seconds and Save program 
under development. 

The REM statements at the front of 
each block, and the underlinings using 

READV. 


minus and equals signs take up a lot 
of space, but if you have the space 
spare, I recommend you use them or 
something similar. It makes listings 
so much easier to read. 


In use, I load "SKELETON", then type 
in the title of the program being 
coded into the space reserved for it. 
From then on, as I finish typing in a 
module (block) of coding, I save it 


using SPUD in 60000. 


10 REM TITLE :-"SKELETON " 

20 REM WRITTEN BV-- M.J. GROSS-NIKLflUS 
30 REM FOR •- 

40 REM STARTED ON — 

50 REM LAST AMEND : - 
90 GOTO1000 

99 ======== 

100 VARIABLES MAP 

101 - 

110 A - Z = GENERAL PURPOSE 

111 <1,J,K = G.P. LOOP VARIABLES 

199 ======== 

200 STRING VARIABLES MAP 

201 - 

210 A$ - Zf = GENERAL PURPOSE 

299 ======== 

1000 REM PRELIMINARIES 

1001 REM - 

1099 REM ======== 

REM AWAIT VALID KEV 
REM- 

GETAf : IFR$=""THEN50010 

FORZ=1TOLEN < Z $> = IFMID$<Z$,Z,1> =A$THENRETURN 
NEXT = GOTO50010 
REM======== 

REM INPUT TRAP 


POKE 158,3: P0KE623, 34 : P0KE624,34: P0KE625,20 : F'RINTZf : INF'UTAf = A=VAL<A$ 

RETURN 

REM======== 

REM 2.5 SECOND DELAV 
REM- 

FOPZ=1TO2500 •• NEXT: RETURN 
REM======== 

REM CASH RIGHT ALIGN 

REM- 

Z=INT <Z*100+.5)/100 

Z$=LEFT$< RIGHT$<" "+STRTCZ+.005#SGN<Z > >,10>,9 >:RETURN 

REM======== 

REM SPUD 

T$="0 •• " : FORI = 1044TO1055: IFPEEKCI > =0THEN60030 
T$=T$+CHR$ < PEEK < DO : NEXTI 
Tf=T$+LEFTf<TIf,4> 

PRINT " JflSAVING S"; T$ : SAVET $ ,8 
VERIFVT*,8 


50000 

50001 
50010 
50020 
50030 

50099 

50100 

50101 
50110 
50120 
50199 

50300 

50301 
50310 

50399 

50400 

50401 
50410 
50420 
50499 
60000 
60010 
60020 
60030 
60040 
60050 

READV. 


3. A USEFUL TIP FOR PROGRAM LISTINGS. 

Most printers have a double-line 
spacing facility yet it seems to be 
very rarely used for program listings. 
The improvement in legibility using 
double line spacing is very 
worthwhile. Perhaps more important, 
you can decide on amendments and write 
them in under or over the lines 
involved, without being at the PET. 

When I started using the PET in early 
1978, I did all my coding and 
development work at the keyboard, in 
direct contradiction to my main-frame 
training. Now the old disciplines 


have re-established themselves, I use 
double spaced listings all the time. 

I separate the sheets and put them 
into a clip-board, and work on them on 
train journeys for example. An added 
bonus is to sprawl outside on the 
grass on one of those rare sunny 
midweek afternoons, clip board and pen 
close at hand, commanding ones 
colleagues not to disturb you while 
you debug your program! 

On the 3022 Commodore printer, you can 
open up the lines by a specified 
amount using a PRINT# to secondary 
address 6. The version I use is:- 

0PEN1,4,6:PRINT#1,CHR$(45):CLOSE 1 



























4. ENGINEERING TRAINING 

The Training Department hasn't been 
the same since the first of May. On 
that day, Spiro Omfalos joined us from 
the Service Department. Using 
techniques which he has obviously 
adopted from the "Road Runner" films, 
typing with one hand, operating an 
oscilloscope with the other, while 
talking on the phone and listening to 
a cassette recording, he has put 
together one of the country's best 
micro-computer servicing courses in a 
period of four weeks. How do I know 
it's so good? Because that is what 
90$ of those present on the first 
course said, and backed it with 
maximum scores on our course appraisal 
sheets. 

Service courses won't affect most of 
you personally, but it's nice to know 
that Commodore Dealer engineers have 
that kind of backup available. 

Coming shortly will be conversion 
courses for the 8000 series equipment. 
Dealers, please contact Biddy Clark on 
01 388 5702 for details. 


ASSEMBLER COURSE. 

Since we cancelled our assembly 
language (machine code) course due to 
lack of support, enquiries regarding 
such courses have built up. I intend 
to run a few this year possibly 
leading to a regular series next year. 

The first one will be in late 
September/early October with Cranfield 
Institute of Technology as the 
probable venue for a three day 
residential course. 

My intention is to make this a 
beginner's course, starting with 
micro-architecture, binary and hex, 
and leading to the point where 
confidently use the mini-assembler in 
EXTRAM0N to write useful machine code 
routines. After attending the course, 
you should be able to teach yourself 
the full assembler from the manual. 

Projected price is £275.00p inclusive 
of meals and accommodation but 
excluding VAT. Ring Biddy Clark on 01 
388 5702 for details. 




Digital 
Design & 
Development 


INTRODUCE YOUR PET 
TO THE 

OUTSIDE WORLD 


43 Grafton Way, London W1P 5LA 


Tel: 01-387 7388 


★ 16-CHANNEL A-D CONVERTOR UNIT 

- 16 inputs, 8-bit resolution 

- - Input ranges 0-2 5v, 0-5v, 0-1 Ov, single ended (customer 

specified) 

— Conversion time 150ps 

— BNC front panel connectors 
_ PRICE: £300 


NEW 


8-CHANNEL 12 BIT A-D CONVERTOR UNIT 

Wide input range: Unipolar, Bipolar, or Differentia 
Conversion time lOOps 
DIN front panel connectors 
PRICE: £600 


★ 16-CHANNEL RELAY CLOSURE UNIT 

— 16 individually addressable reed relays 

— Front panel 4mm banana sockets 

— LED indicates each relay's state 

— Contracts rated lOOv, 0-5A. 

— PRICE: £350 



with our range of I EEE-488-compatible interface units. Boxed 
complete with power supply, leads, switch, fuse, indicators & 
illustrative BASIC software supplied. Address selectable. 



★ 8-CHANNEL D-A CONVERTOR 

- 8 single-ended outputs, 8-bit resolution 

- Output ranges 0.2 - 5v, 0-5v (customer specified) 

- Front panel BNC connectors 

- PRICE: £350 

★ 8-CHANNEL DATA ACQUISITION UNIT 

- Interfaces to most digital instruments 
_ 8 channels of 8 bits each 

- Plus two handshake lines/channel 

- BCD or byte oriented data 
PRICE: £400 


TERMS: All prices ex.VAT. 5% discount for CWO or pay- 
ment within 14 days of order. Cheques should be made Pay¬ 
able to 3D Digital Design & Development. P&P extra AM 
goods are supplied under 90 days warranty. ALL UNITS 
EX-STOCK. 

CUSTOM DESIGN UNDERTAKEN. 
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COMMODORE TRAINING 
DEPARTMENT 


Assembly Language Course 


Location: 

Date: 

Fee: 

Aim: 


Cranfield Institute of Technology, 
Bedforshire. 

September 23 - 25 1980 
£275.00 + VAT (inclusive of accommoda¬ 
tion and meals. 

To take you to the point where you can 
write useful machine code routines using 
the EXTRAMON mini-assembler and dis¬ 
assembler. 

Start Point: You should have some familiarity with the 
concepts of programing (in BASIC or 
some other high level language). 
Functioning of a micro-processor 
Main registers in the 6502 processor 
Holding information in Binary and Hex 
Addressing memory 
The fetch execute cycle 
The 6502 instruction set 
Using the EXTRAMON assembler and dis¬ 
assembler 

Binary addition and subtraction 
Boolean operations 
Addressing modes 
Linking to PET ROM routines 
Linking machine code routines into BASIC 
programs 

Coding for the User Port 


Syllabus: 




COURSE BOOKING/ENQUIRY COUPON 

I would like to book on/receive further details of the ASSEMBLY LANGUAGE COURSE, 
September 23 - 25 at Cranfield. 


Name . 
Address 


.Tel:. 

I enclose my cheque payable to Commodore Business Machines (UK) Ltd. in the sum of £ 

Please return this slip to: Commodore Training Department 

360 Euston Road, London NW1 3BL 










Beginning BASIC 


STRING HANDLING IN BASIC LANGUAG E 

Most people are aware of a computer’s 
calculating abilities. However, there is 
another side to computing that is not as 
familiar to the average person. We have 
all been exposed to computerised mailing 
lists, credit information, airline ticket 
reservations or some other example of the 
computers data handling capability. The 
purpose of this article is to relate how 
some of these things can be accomplished 
even using a microcomputer such as the 
Commodore PET. 

Most microcomputers today come with BASIC 
as the major language. BASIC was designed 
to be a very simple language, easily 
learned, which can handle most of the 
operations that are associated with large 
computers. The penalizing aspect of BASIC 
is the speed of execution which is often 
not a major consideration in the use of 
fixed handling data. We will try to 
explain each and include examples. 

Before we begin the discussion of the 
commands of BASIC, it is necessary to 
define some terms. We must understand how 
the computer stores its data as code 
numbers. The microcomputer is actually 
only capable of storing numbers in the 
range from 0 to 255. As a result of this 
some standard codes have been created. The 
code convention used by micros is called 
ASCII (American Standard for Computer 
Interchange of Information). For example, 
in ASCII code the letter "A" is represented 
by the number 65, "B" by 66, and so forth. 
The computer contains a decoding routine 
that automatically decodes the 65 and 
prints out an "A". Numbers can be 
represented in three ways inside the 
computer. The first is as a literal string 
using the ASCII representation in each 
number. No arithmetic can be done on 
numbers represented this way. The most 
common representation is called "floating 
point". The computer allocates a number of 
bytes or memory locations (usually five or 
six) to represent a number in a way which 
makes all the arithmetic possible. The 
last representation is called "Integer" 
where the range of the number is restricted 
to +/- 32767 as rounded integers. The only 
important part is that most micros handle 
data, either numeric or alphabetic, as the 
first classification- literal strings of 
ASCII characters. Since some arithmetic 
process is usually necessary, there are 
techniques for converting between the 
various data representations. 

BASIC AN P STRING HANDLING 

A "string" is represented in BASIC by a "$" 
following the variable name. For example, 
A$, IN?, or XI$. A string is a series of 
ASCII coded characters stored together in a 
sequence in memory ("A$=ABCDE"). If we 
looked where the computer had stored A$, we 
would see 65,66,67,68,69 in adjacent memory 
locations. Note that in the example above 


the quotation marks indicate to the 
computer to store the ASCII values of the 
letters between them and are therefore 
mandatory. 

Strings of ASCII characters can be 
manipulated by using a series of commands. 
The first are LEFT?, RIGHT?, and MID?. 

These commands allow us to view portions of 
strings and are used extensively in the 
retrieval and evaluation of data stored in 
the computer. 


General form A$=LEFT$("ABCDE,2") 

Print A? will result in AB 

The string to be manipulated is entered as 
a literal (as above in quotes) or as a 
variable (x$) followed by a comma and a 
number. The number designates how many 
characters starting at the left will be 
extracted from the main string. LEFT? does 
not change and cannot be made to change the 
original string in any way. 

RIGHT? 

General form A?=RIGHT?("ABCDE",2) 

Print A? will result in DE 

Obviously, RIGHT? accomplishes the 
identical task as LEFT? but the operation 
is performed on the other side. 

MID? 

General form A?=MID?("ABCDE,2,2) 

Print A? will result in BC 

In this case, the first number following 
the string value is a pointer to the first 
character to be extracted, starting from 
the first character on the left (character 
A is the first, B the second, etc.). The 
next number designates the number of 
characters to be extracted. Note that MID? 
cannot be used to modify the original 
string. 

A?=MID?("ABODE",2) this form of the MID? 
command allows the user to remove the 
leftmost character ie 
A?="CDE" 

In addition to the above string handling 
commands there are another three 
instructions which allow manipulation or 
study of strings. 

LEN 

General form A=LEN("ABODE") 

Print A will result in 5 

LEN returns the length of a string and is 
used extensively in setting up data in 
files. We will see more of LEN later. 

VAL 

General form A=VAL(124.35) 

Print A will result in 124.35 

VAL is used to convert literal numbers (as 
ASCII strings) to their "floating point" 
form so that arithmetic can be performed. 



It is used widely for doing calculations on 
information stored in data files. 

STR$ 

General form A$=STR$(A):WHERE A=124.35 
Print LEN(A$) will result in 7 

STR$ is the exact reverse of VAL. It is 
used to return calculated values to ASCII 
string form for storage in data files. An 
important note is that STR$ always leaves a 
space at the beginning of the string 
representation of the number for the sign 
(+ or-). If the number is positive it is 
preceded by a space or if it is negative by 
a minus sign. 

The last two string handling commands are 
normally used in advanced programming to 
reduce storage requirements to the absolute 
minimum. 

ASC(A$) 

General form A=ASC("A n ) 

Print A will result in 65. 

This command converts a character to its 
ASCII code and allows it to be used in 
calculations. 

CHR$(A) 

General form A$=CHR$(65) 

Print A$ will result in A 
This is the reverse of ASC and uses the 
computer's coding logic to generate the 
appropriate character from a given code 
number. 


PRINT USING 


Anybody who has used the PET to output 
numeric data in tables will know how 
frustrating it can be to get the columns to 
align. A table with the following format 
is all too common: 


No Position Time 


0 

10 

17 

5 


1210153312 

12.312 

.1273 

150 


153.11123 

16.215 

5.12563127 

0 


There are quite a few one line routines 
which will chop a number around so that it 
will fit a set format, but none that I have 
seen which will allow true table layout. 

I required a routine which would allow me 
to output a large amount of data into a 
table that would just fit an 80 column 
printer. The following program is the 
result. It works with disk files but it 
can easily be modified by changing the 
channel number so that it reads from tape, 

i.e. change 8 to 1 in line 270 and miss off 
the rest of the line:- 


270 0PEN5.1 

Lines 140-630 have to be altered to give 
the required data. The input routine shown 
is for an engine test bed running on petrol 
or methanol. 


STRING HAND LING OPERATORS 

The following operators can be used alone 
and in combination with the above commands 
and information to allow very powerful 
decision making programs using string data. 
The operators are <,>,= and+. 


Lines 150-260 are the program constants 
some of which are sent to the printer. 

Lines 280-360 are the variables that 
changed each time the engine was run. 

Lines 370-450 perform calculations on the 
input data. 


Since strings are represented as numbers in 
the computer, they can be handled similarly 
in many respects. The ASCII code of both 
numbers ("2") and letters ascend with 
ascending values of alphabetic order. This 
allows us to compare apparent magnitudes of 
strings. It is true that the ASCII code of 
B(66) is greater than (» A(65) so we can 
say that B$>A$ or A$<B$ of A$OB$. All of 
these test would be true. This allows us 
to compare ASCII and place it in 
alphabetical or numerical order using 
simple comparison operators. The only 
difference in the use of these operators 
for numeric or string information is in the 
U3e of (+). 

The (+) adds literal characters to the 
right hand end of the string and increases 
the string length (LEN) accordingly. 

For example: A$= ,, ABC ,, + ,, DE ,, 

Print A will result in ABCDE 

In this regard, it is totally different 
from its arithmetic counterpart. 

The true power of the commands discussed up 
to this point can only be realised as they 
are used in combinations to compare and 
manipulate data. 


Lines 460-600 send the data to disk. 

When modifying the program it is only 

necessary to ensure the following items: 

1. The first item to be sent to disk 
for each data block is 1. Line 460 
sends CH to disk: CH=1. 

2. The last item to be sent before 
closing the disk file is 99999 as in 
line 630. 

3. The title for the output data is 
held in F$. 

4. The data format is held in P$ using 
'I' to denote Integer output and *F* 
to denote Floating point. Spaces 
act as delimiters between numbers. 

5. Ensure that the number of items sent 
to disk for each line matches the 
number of format fields in P$! 

Any number out of range is shown by 1 ##' in 

the printout. 

How the Program Works 

Take a simple output format string to be: 



P$="SIISSSFF.FFFSSSI" 

Each set of data to be output will be 
stored on disk as a group of 3 preceded by 
a check digit and the data block will be 
terminated by 99999. Thus for example 
there are three sets of data to be output 
this will be stored as follows: 

1 5 2.3716215 3 1 10-1 2021 9 1 69 

95.6275 4 99999 

7U0 

The first item is read from disk. If it 
equals 99999 then there is no more data and 
the program terminates. The number is 
discarded after the test. 

The position pointer CO is set to the start 
of P$. 


5 

SSS 


More spaces are encountered and sent to the 
printer. When the first 'F' is found C0=8. 

Mfl. ....... 

The string is searched. FB is incremented 
when FA=0. 

850 

As soon as the decimal point is found then 
FA is incremented. 

860 

When FA>0, FA is incremented. 

870 

When the next space is found the program 
branches. 


750 . 

The character under the pointer is assigned 
to V$. The pointers FB and FA (Float 
Before, Float After decimal point) are set 
to 0. In the above example V$=" ":C0=1. 

220 . 

A space is printed and the program jumps to 
990 which will increment CO. 

This is repeated until CO-3 V$='I'. 

7Q0 

The string is now searched until a space is 
encountered or the end of the string is 
found. 

810 

FB is set to the number of I's encountered. 


1100 

A number is read from disk. 

1030/1 Pit Q. , „ T . 

The number is turned into an integer NI and 
NI is turned into a string. If the length 
of N$ is greater than the number of 
characters set aside for it in FB or if 
N>IEI0 an error message is printed and # 
symbols are sent to the printer. 

1060 

When a number is converted into a string it 
will have a preceding space if it is 
positive and a if negative. 

I have written the routine so that this 
space is removed for positive numbers thus 
saving space which is important on tightly 
packed output. Thus the user has to 
include an extra I or F into P$ when 
negative numbers are going to be output. 

1070 

If the number is negative then the - sign 
is put into the first position of the 
format, eg. N=-50 


iiiii 

- 50 


If the number is positive then blanks are 
added. Thus numbers are always right 
justified. 

The sample printout will now look like: 


900 

A Floating point number can be considered 
as an integer + a bit left over. Hence the 
number before the decimal point is sent to 
the printer using the integer subroutine in 
1030. A decimal point is printed. CS is 
set to 0 

910 

As soon as a number drops below .01 it is 
output in exponential format. When this 
happens it is necessary to convert it back 
into floating format by adding in some 
zeros. 

920 

CS is set equal to the exponent, eg: 

1.237 E- 05 
N CS 

The actual number is made to conform to the 
floating point remainder by dividing 10 ie: 

N=0.1237 


950 

If 0's are now added between the point and 
the next number it will be made to conform 
to true Floating point format, ie. 
0.00001237. 

970 

If CS > FA then only 0's will be output. 
Starting from the decimal point in N 
numbers are printed. If the numeric output 
has still not filled the FA field then 
trailing '0"s will be printed to pad it 
out. 

980 

CO is incremented by the length of the 
format FB+FA 

There are two operations that the program 
will not perform these being alphanumeric 
and exponential output which brings me to 
the competition. 

Modify the program so that alphanumeric 
data can be input and formatted and add a 
routine which will convert any number into 
exponential format. Use A in P$ fdr alpha 
and E for exponential. I would suggest that 
a block of E's be used with a minimum of 8 



being necessary to give output, ie: 

EEEEEEEEEE 

-1.763E-10 

Set up the program so that it uses cassette 


Input/Output and will format to the screen 
(0PEN1,3) send your modified program to me, 
Dave Middleton, enclosing a SAE for return 
of your cassette. The closing date is 
1.10.80 and the prize is any program from 
the Master Library. 


10 REM******N0TE - FILL REM STATEMENTS 

11 REM*********MAV EE OMMITEB********** 

20 REM#*##*#*#*####STRRT###*#*######*#* 

95 REM##*##**#F# IS TITLE STRING###### 

96 REM###****#*P$ IS FORMAT STRING##### 

100 F$="RUN SP N LOAD PH MA MF AFR V.VOL • TQ BP VB SFC" 
110 F$=F#+" BMEP" 

120 P$=" II II F.F FF.FF FF.FF FF.FF FF.FF FF.FF FFF.F FF.FF FF.FF FF.FF F,FF" 
130 P#=P$+"FF FFF.FF" 

132 REM 

135 REM#####*INPUT MAIN VARIABLES#*#### 

140 OPEN10,4 

150 INPLIT " BATE "; BA# = F'R I NT# 18, " BATE "; BA# 

160 INPUT"JET SIZE"; JE#:F'RINT#10, "JET SIZE ";JE# 

170 INPUT"NEEBLE. TYPE";NT# : F'RINT#10.. "NEEBLE TYPE ";NT$ 

180 I FTV#= " M " THENF'R I NT# 10.. " FUEL TYPE; METHANOL" 

190 I FTY#= " P " THENPRINT#18, " FUEL TYPE; PETROL" 

200 CH=1;INPUT"ATOMSPHERIC PRESSURE":PA 
210 PRINT#10,"ATMOSPHERIC PRESSURE";PA 

220 I NPUT" FUEL TYPE StIKTHENOL OR SF'IETROL"TV# : IFTY#=“M"THENCV=30000 : FB=700 

230 PRINT# 10, "FUEL TYPE i ."; = I FT'i#= " P " THENPR I NT# 10, " PETROL " 

240 I FTY$= " P " THEHl'V=4S900 : FB=733 
250 IFTV#="M"THENPRINT#10,"METHENOL" 

260 PRINT "CALORIFIC: VALUE"; CV: PR I NT 1 "FUEL BENS I TV "; FB :CL0SE18 

264 REM 

265 REM#***#*****INPUT BATA************ 

270 OPENS,8,9,"01:STEF,S, M" 

280 INPUT"RUN NUMBER ";C0 

290 INPUT"PISTON HEIGHT MM";PH 
300 INPUT"SPEEB 1888RPM ";N 

310 INPUT"LOAB LBS ";L 

320 INPUT"BELTA H MMH20 ";H 
330 I NPUT "TEMP "C ";T 

340 INPUT"VOLUME ML ";V 

350 INPUT"FUEL TIME SEC ";TS 
360 INPUT"SPARK TIME "BTC ";SP 

364 REM 

365 REM******PERFORM CALCULATIONS****** 

370 MA=4*SQR<<H*PA >/<T+273 >> 

380 MF= < FB#V > /TS/1000 
390 AF=Mfl/MF 

400 VV=51.78* < SQR (C H* C T+273>)/PA >)/N 

410 TQ=1.446*L 

420 BP=0.1514*L*N 

430 vb=<: bp* 100000 > / <; MF*CV ) 

440 SF=8.2/YB 
450 EM=9.116*L 

454 REM 

455 REM##**###PRINT BATA TO BISK***#*#* 

460 PRINT#5,CH;PRINT#5,C0 = PRINT#5,SP;PRINT#5,N;PRINT#5,L : PRINT#5, PH:PRINT#5,MA 
470 PRINT#5,MF;PRINT#5,AF;PRINT#5,YV;PRINT#5,TQ;PRINT#5,BP;PRINT#5,VB 
590 PRINT#5,SF;PRINT#5,BM 

595 REM 

596 REM*******#MORE BATA ?**#**#**.****# 

610 I NPUT "ANY MORE BATAWifYIMI"; AN# 

620 I FAN#0 " N " GOTO280 

630 PRINT#5,99999;CLOSES 

644 REM 

645 REM******START OF PRINT USING****** 

650 OPEN10,4;0PEN4,8,3,"1;STEF,S,R" 

654 REM 

655 REM********PRINT TITLES************ 

660 F0RA=1TO80;PRINT#18,"*";;NEXT;PRINT#18 
670 PRINT#10,F# 

680 FORA=1TO80:PRINT#18,"*";:NEXT:PRINT#18 

693 REM 

694 REM**#****MAIN PROG STARTS HERE*** 

695 REM******TEST FOR ENB IE 99999***** 

740 CO=1 : GOSUB1100 : IFN=99999G0T01010 




744 REM 

745 REM***START OF NEXT FORMAT FIELD*# 

746 REM#####TREflT SPACE AS AN END****** 

7^0 V*=M I D* < P*, CO, 1 > •• FB=0 •• FA=0 

760 IFV$=""GOTO990 

770 IFV$=" "THENPRIHT#10, " “; ■' OOTO990 
780 IF'v'$0"I"GOTO830 

784 REM 

785 REM*********INTEGER ROUTINE######## 

790 FORC1 =COTOLEN<P$> = IFMID$<P*, Cl1 ) = " "OOTO810 
800 NEXTC1 : FB=LEN<P* > -CO+1 : GOTO820 
810 FB=C1-CO 

820 GOSUB1100 : GOSUB1030:CO=CO+FB-l : GOTO990 
323 REM 

825 REM#####FLOATING POINT ROUTINE*#*## 

830 IFV*<>"F"G0T063999 

840 FORC1 ■COTOLEN<P$> : D$=MID*(P*,C1,1 > • IFD*= "F"ANDFA=0THENFB=FB+1 

858 IFD$="."THENFA=1 

860 IFDf="F"ANDFA>0THENFA=FA+1 

870 IFD*=" "GOTO900 

880 NEXTC1:IFFA>0THENFA=FA-1 

900 GOSUB1100:0OSUB1030:PRINT#10,".";:CS=0 = S=N 

910 1FABS <N>>1E-2GOTO940 

920 CS=INT<VAL(RIGHTS<STR*<N>,2>> >:N=VAL<LEFTf<STR*<N>,LEN<STR$ < N> >-2)>/10 

930 IFCS>0THENCS=CS-1 

940 IFCS=>FATHENCS=FA-1 

950 PR I NT# 10.. LEFTS < " 000000000 ", CS > ; 

960 V=2:1 FABS N < 1 THENV= 1 

970 PR I NT# 10 .• M ID$ < STR$ < N >+" 00000000 ", LEN C STR* < INT <N) > >+V, FA-CS-1 >; 

980 COCO+FB+FA-1 

985 REM 

986 REM**#**FINISH FORMAT ON THIS***** 

987 REM******NUMBER. INCREMENT CO****** 

990 CO=CQ+1:IFCO=>LEN<P*)THENPRINT#10:GOTO740 
1000 GOTO750 

1005 FORA=1TO80:PRINT#10,"*";=NEXT = PRINT#10 
1010 PRINT#10:CLOSE10:CL0SE2 
1020 STOP 

1027 REM 

1028 REM***TURH NUMBER INTO AH INTEGER 

1029 REM*PRINT ERROR IF GREATER THAN FB 

1030 HI=INT(N) ■'N*=STR$(NI) : IFLENCN*)<FB+2ANDNI< 1E9G0T01060 

1040 PR I NT "ERROR NUMBER OUT OF RANGE "; N : N$=LEFT * < " ########## ".. FB > : GOTO 1090 
1060 N*=RIGHT*CN*,LEN<N*>-l> 

1070 IFSGN<N >=-1THENN*=LEFT*<"- ",FB-LENC N* > >+N$:GOTO1090 

1080 N*=LEFT$ t!" ", FB-LEN < N* ) ) +N* 

1090 PR I NT# 10, N$: RETURN 

1097 REM 

1098 REM****READ A NUMERIC STRING FROM 

1099 REMDISK CHOP OF CHR*a0) AT START* 

1100 I NPUT#4.. CH* CH*=M ID* < CH*, 2,200> : N=VAL < CH* > : PR INTN = RETURN 

READY. 


DATE 30 JULY 1980 

JET SIZE 1.001 

NEEDLE TYPE 1510 
ATMOSPHERIC PRESSURE 761 
FUEL TYPE' METHENOL 


RUN SP N LOAD 


PH 


MA 


MF AFR V.VOL TO 


BP 


YB SFC 


BMEP 


r o 


0 1.0 25.00 25.00 51.10 70.00 0.73 263.4 36.15 

0 2.0 29.00 29.00 36.33 22.55 1.63 101.2 41.93 8.78 

5 3.0 60.00 50.00 41.82 14.00 2.98 32.5 86.76 27.25 


0.18 #.4953 227.9 
1.29 6.3188 264.3 
6.48 1.2637 546.9 


IQ 





Multi-User PET (Mu-pet) 
links 3-8 PET computers 
to me Commodore disc 


commodore 


CBM 


drive and a printer. 




r Ves , j want to se e the Mu-pet show - please advise me on my 
nearest dealer. 


Name. 


Address_ 


CPUCN 


KOBRA MICROSYSTEMS 
14 The Broadway 
West Ealing London W13 OSR 
01-579 5845 


I 

I 



Mu-pet is very good news indeed for those 
PET users wanting a multi-user computer system 
and who, up until now, have run up against a 
budgetary brick wall. 

Mu-pet delivers the goods at very low cost... 
which is one of the reasons it’s become the world’s 
biggest selling multi-PET system. Precisely 
engineered in the U.S. and Canada,Mu-pet makes 
the most of PET computers - without the need for 
program changes. 

£595 is all it costs for a standard Mu-pet 
system that links three PET computers to a single 
Commodore disc drive and a printer. The cost of 
linking more PET computers, up to a maximum of 
eight, is £125 for each addition. 

All machines have access to the disc drive and 
printer. The hardware which all runs via the IEEE 
bus has been so well designed that each PET thinks 
the disc is its own, and priority depends on who 
gets there first. 

If you’ve three or more PETS, then you need 
a Mu-pet to make the most of them. 









The Use of WAIT 

The command WAIT can most usefully be used 
to test to see if a particular bit is set 
in a byte. 

Implementing the command 


10101010 11110000 11111111 

E0R nnnoilll E0R OOOOI111 E0R 1Q1Q1Q1Q 

00000101 00001111 00000000 

OR normally has this effect 10101010 

OR 01010101 
11111111 


The keyboard is buffered allowing up to 10 
characters to be stored prior to 
processing. The number of keystrokes to be 
processed is stored in location 158 (525 
Old ROM). 


WAIT 158,1 will cause the current program 
to stop until a key is pressed. What 
happens is that current value of location 
158 will be ANDed bit by bit with 00000001 
until a match is made in one bit, then 
processing continues. This WAIT 158,1 will 
have the same effect as 
10 GETA$:IFA$=""GOT010. 


To explain further here are two examples: 

1. WAIT 158,8 (bit pattern 00001000). 

Each time a key is pressed location 
158 will be incremented. No bit in 
158 will match 00001000 until the 
key has been pressed eight times. 

2. WAIT 158,7 (bit pattern 00000111) 

Will a key have to be pressed seven 
times before the programs continues? 

No. The first key pressed will 
have a bit pattern of 00000001 and 
this will make a bit match. Hence 
the program will continue. 

A second argument may be added to the WAIT, 
e.g. WAIT59410,4,4 

This will WAIT until the space key has been 
pressed. If you take a PEEK at 59410 you 
will find that it contains 255 until a key 
on the same line as the STOP key is pressed 
(RVS 1 space < . =)• The space key causes 
251 (bit pattern 11111011) to appear in 
59410. 

It is not possible to use WAIT as any 
number other than 4 (0000100) will cause 
the WAIT to be fulfilled and 4 will cause 
the processor to wait indefinitely. 

The first argument performs AND with 
location 59410. 


Going back to the result from WAIT 
59410,4,4 

251 11111011 
AND 4 0000010Q- 

00000000 

eor 4 

00000100 

And the program will continue. 


CHANGING ARRAY NAMES 

Mike Gross-Niklaus 

1. The problem. 

Over the months, in CPUCN and other 
publications, many useful subroutines have 
been listed and explained. Some of these 
operate on the elements of an array. 

But what if you want to use the same 
subroutine for several arrays? Most of us 
set up the subroutine with a 'working 
array', copy the contents of the array to 
be processed to the working array, perform 
the subroutine and then copy the processed 
working array back to the original one. 

Take a look at diagram 1 to see what I'm 
getting at. 

The trouble is that if the array is a long 
one, this transferring can take a 
noticeable time. An alternative approach 
is to find the reference to the particular 
array in the array table, change the name 
to that of the 'working array', perform the 
subroutine, then change the name back 
again. 


2. Steps involved in changing the name. 

First define the old and new names and 
convert them into the same form as held in 
the array table. 


251 11111011 
AND 4 nOQOOIOQ 

00000000 


Then hunt through the table for the old 
name. 


This result is then Exclusively ORed (EOR) 
with the second argument. 

An Exclusive OR is the same as OR (01 OR 10 
=11) except that 1 only appears in the 
result when there is a 0 in the location 
and a 1 in the argument for the bit. 

An Exclusive OR has the opposite effect to 
OR in that a bit is only set in the result 
when there is a zero in the location and a 
corresponding 1 in the argument, e.g.. 


Finally change the name by poking the new 
code. 

To change the array name back again 
involves the same process, reversing the 
order of the defined old and new names. 


3. Defining the names. 

The technique shown here will only work on 
arrays of the same type (ie real, integer 


1^ 



or string array.) So, assuming that you 
know what type of array the subroutine is 
going to process, only the alpha numeric 
parts of the array name need be specified. 
For example, whether you want to change 
XX$() to WK$() or XX() to WK(), the 
procedure will be the same. 

The method used requires you to set up in 
a parameter string (A$), the old and new 
names as two characters each, using a space 
if the name is one character only. For 
example, to change XX$ to Z$ requires 
A$="XX,Z n . 

This parameter string is then passed to a 
subroutine, 40900, which dissects it to 
produce the codes for each of the two bytes 
used by the BASIC interpreter for array 
names. The rules for these are set out in 
appendix A of the User Manual. Briefly, 
the ASCII codes of the alpha-numeric 
characters of the array name are used, with 
zero in the second byte if the name has 
only one character. To these values are 
added 128 in the second byte if the array 
is not a real number (floating point) 
array, and 128 to the first byte if it is 
an integer array. In the example shown, 
real arrays are assumed, so the only 
processing of the ASCII codes required is 
to replace CHR$(32), (space) by a zero. 


Hunting for the coded name. 

The interpreter maintains some useful 
pointers in the 'scratch pad' (zero page) 
section of memory which you can get at with 
your BASIC programs by using PEEK. 

Relevent here are the pointers for the 
start and end of arrays. The start is held 
as two bytes in locations 44 (126 old ROM) 
and 45 (127)» and the end in locations 46 
(128) and 47 (129). To convert these 
references into decimal, the second byte is 
multiplied by 256 and added to the first 
byte. For example if the first byte 
contains a PEEKed value of 4 and the second 
a value of 9, the decimal location is 9 
times 256 plus 4 = 2308. 

Using these calculations, you can determine 
the start and end of the search area. 

The arrays are laid out with the first two 
btes as the coded name and the third and 
forth defining how many bytes to the next 
array name. So the technique is to check 
the name pointed at by locations 44 and 45, 
then if there is no match, add the value of 
the next two bytes to the pointer and so 
on, until you find a match or you reach the 
end of the array area. This skipping 
search technique is exactly that employed 
by the interpreter every time it comes 
across a reference to an array element in 
your BASIC program, i.e. it searches from 
the start of the array table each time. 

[Incidentally, the same technique is used 
by the interpreter for looking up normal 
variables and even line numbers during 
GOTOs and GOSUBS. Program operation speeds 
can be significantly improved by putting 
your most used variables, arrays and 


subroutines 'at the front of the queue!!'] 


5. Example program. 

The example program shows the use of a 
Bubble sort subroutine on two real number 
arrays XX and YY. Only 20 elements have 
been considered to allow listing of the 
unsorted and sorted arrays on the screen 
without scrolling or the need for screen 
page techniques. 

The program fills the two arrays with 
random integer values in the range 1 to 99, 
and displays them for you to peruse. (I.e 
"Nothing up my sleeve!!"). After you press 
the space bar, each array in turn has it's 
name changed to Z, the bubble sort is done 
on array Z, then the name is changed back 
again. Finally the sorted arrays are 
displayed with the oportunity for another 
run in case you can't believe your eyes! 

Incidently I lay out most of my programs in 
the manner shown if there is sufficient 
space, (qv this month's TEACHIN column.) 

6. Conclusions. 

You may feel that it's a lot of work for a 
not very big reward! Well that depends on 
the size of your arrays and how frequently 
you process them during the run of the 
program. As with all subroutines, once 
they are written and proven, they are 
available for instant use whenever you feel 
the need. In the case of one program I 
wrote to control industrial equipment, the 
increase in speed was essential. Using the 
normal transfer techniques would have 
caused the system to fail. The program was 
in PROM so I couldn't POKE the array name 
change into the BASIC text, which is messy 
anyhow if you are likely to amend the 
program with consequent changes in the 
relevent POKE locations. I could have 
reverted to machine code, but this method 
was far easier to implement, and fast 
enough. 

I hope you get some mileage out of the 
idea, either by using it as intended, or 
just as an encouragement to you to have a 
look around the Scratch Pad locations and 
see what you can do by PEEKing and POKEing. 


Mike Gross-Niklaus 



10 REM TITLEARRAY NAME CHANGE 
20 REM BV MIKE GROSS HI KLAUS 

30 REM FOR CPCUN 

40 REM BATE 02/07/80 

99 REM ========== 

100 REM DEMONSTRATION ONLV 
339 REM ========== 

1000 REM PRELIMINARIES 

1001 REM - 

1010 DIM XX<20)^ VY<20> : REM TWO ARRAYS 
1020 A=RNB |-TI ') '■ REM RANDOMISE 
1038 FT=0 : EA=0 

1099 REM ========== 

1100 REM FILL ARRAYS WITH RNBM NOS 

1101 REM - 

1110 DEF FNR 0-0 = I NT CRND < !>*/+!> 

1120 FOR I = 1 TO 20 
1130 ZX<I> =FNR< 99 > : YV<I>=FNR<99 > 

114£i NEXT I 

1199 REM ========== 

1200 REM CONFIRM ORIGINAL SEQUENCE 

1201 REM - 

1210 GOSUB41000 

1220 PR I NT "MISPRESS SPACE BAR TO CONTINUE" 

1230 Z$=" " : GOSUB50000 
1299 REM ========== 

2000 REM SORT ARRAY XX 

2001 REM - 

20i0 h$="/H,Z " : GOSUB40000 : IF EF = 1 THEN END 

2820 T#="XX" : GOSUB50800 
20301 AT= " Z .> XX" ■ GGSUB4U0U0 
2099 REM ========== 

3800 REM SORT ARRAY YV 
3001 REM - 

3010 A$="VV,Z GOSUB400100: IF EF = 1 THEN END 
3020 Tf="VV": GOSUB50800 
3030 hT="Z / VY" : GOSUB40000 
3099 REM ========== 

4000 REM CONFIRM SORTED ARRAYS 

4001 REM - 

4018 GOSUB 41000 
4099 REM ========== 

5000 REM AGAIN? 

5801 REM - 

5010 F’RIHT":SSAGAIN (V OR N > ? 

5020 Z$="YH"■GOSUB50000 : IF 1=1 THEN RUN 



DIHGRfiM l: USUfiL HRRRV HBNDUIW 
METHOD BY TRANSFER 


OLD NAME : 




NEW NAME : ^ a? 

DIAGRAM2 : ARRAY HANDLING Bt 
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3830 END 

5039 REM ========== 

48000 REM CODE OLD ARRAY NAME 

48001 REM - 

48010 X*=LEFT* (A*, 2) : GOSUB 40900 

40099 REM ========== 

40100 REM FIND OLD ARRAY NAME 

40101 REM - 

40110 EF=0•REM ERROR FLAG RESET 
40120 PT=PEEK<44)+PEEK(45 >*256 
40130 EA=PEEK< 46 >+PEEK(47)*256 
40140 IF PEEK (PT) ONC(l) THEN 40160 
40150 IF PEEK <F'T+1 )= MC(2> THEN 40200 
40160 P T=PT+PEEK ( F'T+2> +PEEK < PT+3 > *256 
40170 IF PTCEA THEN 40140 
40180 EF=1■ REM ERROR FLAG 
40190 RETURN 

40199 REM ========== 

40200 REM CHANGE THE NAME 

40201 REM-- 

40210 X*= RIGHT*(AT,2) - GOSUB 40900 

48220 FORI = 8 TO 1 = POKE F'T+I, NC<I+1): NEXT I 

40230 RETURN 

40299 REM ========== 

40900 REM CODE THE ARRAY NAME 
48901 REM - 

40918 FOR I = 1 TO 2 : NCCI>=ASC (MID* (X*,I,1>>' NEXT I 

40920 IF NC(2>=32 THEN NC(2>=0 

40930 RETURN 

40399 REM ========== 

41000 REM CONFIRM ARRAYS 

41001 REM - 

41010 PRINT "SEQUENCE".."ARRAY XX", "ARRAY YYM" 

41020 FORI - 1 TO 20 

41038 PRINT RIGHT* (STR* CI),2), XX(I>, YY(I) 

41040 NEXT I 
41050 RETURN 
41099 REM ========== 

50000 REM AWAIT VALID KEY 

50001 REM - 

50010 GET A* : IF A*="" THEN 50010 
50020 FOR 1=1 TO LEN (Z*> 

50030 IF A*=MID* CZ*,I,l> THEN RETURN 
50040 NEXT I : GOTO 50010 
50090 REM ========== 

50800 REM BUBBLE SORT 





















58801 REM - 

50818 PR I NT "PORTING ARRAV Mi 
58820 X=1 9- REM X IS CURRENT BOTTOM 
50830 SI=0 : REM SI IS SWOP INDICATOR 
50840 PRINT" SWMSORTI NO COUNTDOWN" ;XM'II 
50858 IF Z<IH=Z<I + 1>THEN 50870 
50860 A=za> : za>=za+n : za+i>=R : si=i 

50870 NEXT I 

50880 IF SI-1 THEN X=X-1 : GOTO 50830 

50890 RETURN 

50899 REM ========== 


READV. 


Shell-Metzner Sort 

W Murcott BSc MBCS 

In "Printout" in issue 7» Mike 
Gross-Niklaus mentions the Shell-Metzner 
sort. This has been around a long time. I 
first came across it in the mid 1960s, in 
an Algol work-book from English Electric at 
Kidsgrove. The acknowledgement given in 
the work-book says that it was first 
described by D* L. Shell (Comm. A.C.M. 2 o 
7 (1959))- The beauty of this sort, in 
comparison with many others, is that it is 
quite "intelligent" in that its speed 
increases if the raw data has already a 


degree 


59000 

59002 

59005 

59008 

59010 

59020 

59025 

59830 

59035 

59050 

59055 

59060 

READV. 


of order. ELEMENT 0#**#****#*#*###* : ******** 

REM#**#**#**#******* SHELL S0RT include tLtn 

rIn elemehts># ^**^ # ^*********** 

REM****##**** 0 Tu H Ib 

M-INT<M?2>: IF M=0 THEN RETURN 
,T=0 : K=N-M 
IF J>K GOTO 59010 

IF’ I<0 GOTO 53 0 55 
IF R$(I+MKflf(I) GUTO 59068 

J=J+1 : GOTO 59025 r+r-n-F*: i«i-M: GOTO59035 

Ff=A$<I): A$a>=AfU+M.J • A$Cl+M>-Ff- l i 


Trace 


A G Price .. 

Principal Lecturer Mathematics 
Liverpool Polytechnic 

"PET users may be interested in my 
experience with Brett Butler's TRACE 
routine, published in CPUCN Volume 2 Issue 
3. As written, tracing can be slowed down 
by use of the POKE instruction indicated. 
This introduces a delay of about 300 
milliseconds multiplied by the value POKEd, 
so that the built-in value of 3 causes 
execution at about 1 second per line. The 
delay for a value of 1 is rather variable, 
and is not recommended. A value of 0 
corresponds to 256, and gives a delay of 
about 80 seconds. The delay 18 
interruptable by use of either the SHIFT 
STOP keys, which can be a little 
frustrating. 


By rearranging the TRACE program slightly, 
it can be made to respond to the SHIFT key 
at any time, thus giving the effect of a 
'single-shot' key by setting a large delay 
and tapping the SHIFT key to advance to the 
next instruction. Hold it down for 
full-speed running. To STOP the program 
whilst in the delayed state, press RUN-STOP 
and SHIFT together. 

There is a short-cut in the program which 
can cause the TRACE to miss the start of a 
new line. It occurs if a GOTO is performed 
from a line number 256*K+J (where J is 
between 0 and 255 and K is any integer) to 
line 256*K, e.g. line 260 to line 256, or 
line 1300 to line 1280. 

Users will have noticed that, when TRACE 
displays a READ statement, the characters 





read appear in the displayed line 
immediately following the READ. 


*•***•••* 


expression, which yields the number of 
elapsed days since 1st January 1900 for a 
date expressed in the form D = day 
(1-28,29,30 or 31), M r month (1-12)m Y = 
year (0-99). It produces correct results 
for all dates from March 1st 1900 onwards 
(to 29th February 2100, to be precise):- 


A one-liner which may be found useful in D+INT(365.25*(Y+(M<3))+0.1)+INT(30.6*(M-12 

some applications is the following *(M<3))—31.35) 


Modifications to TRACE to test SHIFT 
continuously 

Changes are underlined. 

104 DATA 253,208,4,228,254,240,106,133,253, 
133,35,134,254,134,36 ,JM 

120 DATA 3-.J33.107.165.152,208.10.2 02. 

208. 249, 136,208. 246 ,19 8,107,208 

136 DATA 202*32 ,-54,169,160,160,80,153, 
255,127,136,208,250,132,182,132 

860 DATA 228,78,240,107,133,77,133,82,134, 
78,134.83. 169.3.133.74.173.4 

870 DATA 2.208.10.2 02,208,248,136,208, 
2^198,74,16,2^2,-54,169,160 

1120 PRINT "CHANGE SPEED WITH: 

POKE";SI+11 9;" ,X" 

NOTE : The modifications have been tested 
on an upgraded ROM machine (model 
3032) but not an original machine. 


Hex-Dec/Dec-Hex 

The following routine was sent to us by R W 
Brand. It allows conversion from HEX to 
DEC or DEC to HEX. Press RETURN without an 
input to jump to the opposite conversion 


direction. 

The program is a bit long.maybe 

somebody can get it down to 6 lines or 
so. 


5 REM*###*#*#*####**#DECIMAL TO HEXADECIMAL AND VICE-VERSA****#**#**#******#*#* 
:e CLR•B=9 : C--1•INPUT"HEXMMNfclSBI";A* : IFA$="*"GOTO120 
20 F0RA=LEN< R$) T 01 STEP- i : B*=M ID#A$ 1) 

20 IFB$="A"THENB$="10" 

40 I FB'f-= "B "THENB*- "11" 

50 I FB*=“ C"THENBf= " 12" 

20 IFB*= "D" THENB$="13" 

70 IFB*="E"THEHB$="14" 

30 I FB* ■■ " F" THENB$- "15" 

90 C-C+l:B=B+(<I6tC>#VAL<B$>> 

180 NEXT 

110 PRINT"DECIMAL IS "B"JP" : G0T018 
128 CLR: H= 16-1NPUT " DEC I MALWiEHMI"; A : I FR=0GOTO 10 
130 FQRC-1 TO4 : A*<C) = "0" = NEXT 
140 B-B+l 

159 C= I NT A/N > ■' A# < B > =STR* < < A/N-C> #N > : A=C : GOSUB200 

160 IFR<NTHENB=B+1 : A#<E>«STRf<A>:GOSUB20© : GOTO180 
178 GOTO140 

1 80 A$=AT< 4 > +A$(3> +R$(2>+R$< 1)■PRINT"HEX IS ";A $ "S" 

180 GOTO128 

200 IFAT< B >=" 10"THENAf<B>="A"■RETURN 
210 IFAf< B>=" 11"THENA*< B) = "B" : RETURN 
228 IFA* <E) = " 12"THENA* <B> = "C":RETURN 
230 IFAf<B> = " 13"THENA*<B>="D" : RETURN 
248 IFA*<B>=" 14"THENA*<B ’> = "E" RETURN 
258 I FA* 4 E >=" 15" THENA* < B ) = "F " ■' RETURN 
268 A* <B> ~RIGHT$(A* <B),1):RETURN 








p^ T r. REPEAT KEY 


adding on the key matrix number an ASCII 
character will be returned. 


This little program gives you the chance of 
making a very simple repeat key for the 
PET. 

Location 151 (515 old ROM) is used to hold 
the last key pressed. This location is the 
keyboard matrix number and while it can be 
used for fairly simple applications such as 
cursor control, it is not realistic to use 
it for ASCII conversion within a program. 

The PET uses a ROM based look up table for 
converting the key matrix into ASCII. This 
table starts at 59127 (E6F7 hex). By 


When the shift key is being pressed 
location 152 (516) goes from 0 to 1. When 
this is multiplied by 128 you will 
obviously get 0 or 128. By ORing this with 
the result from the PEEK at the lookup 
table the shifted ASCII characters are 
produced. 

The routine will not work for old ROM PETs 
due to PEEK protect, but it should be very 
simple to write a machine code program to 
perform the above operations and store the 
result somewhere that can be PEEKed by 
BASIC. 


F'fllJL HI GO INBOTTOM - COMMODORE 


10 

15 REM 

20 REM CURSOR REPEAT 

25 REM 

26 REM USE CURSOR CONTROL KEVS TO MOVE * 

■->-? ££|v] 

-:fi pem*************************************** 1 
40 PRINT".. 
fSfi fl= < PEEK <59127+F'EEK <151 ;■ ;■ UR < PEEK 15^+1« 

55 IFA=253GOTO50 

f.@ I FA= 17THENPRI NT " *11*11"; 

70 IF A= 145THENPRI NT " n*H" ; 

80 IFA=157THENPRINT" IIKIT; 

90 I FA=29THENPR I NT " *11"; 

100 GOTO50 

READY. _ 


Applications 


A R Clark C D Smith I Kirk 
Leeds University Physics Dept 

EAB THFRARED ASTRONOMY OROUND STATION 
Using the PET with I nterrupts 


The schematic overleaf shows the 
arrangement of a Ground Station to be used 
later this year in Texas during 
high-altitude balloon flights. 

The slow scan video gives us the star field 
within an 8 x 10 field of view and the 
star field is updated every 2 seconds. 

The 6800 synchronises to the serial data 
stream and decodes 32 analog words and 8 
digital words. Two of the digital words 
give us our infrared information and the 
M6800 performs a handshake of 128 bytes of 
I.R. data every 8 seconds to the PET. 

(Each handshake taking approximately 100 
milliseconds). 

Most of the other digital words define the 
status of our experiment and appropriate 
statements are displayed on the Kode VDU - 
the status being upgraded every 4 seconds. 

The infrared data is displayed graphically 
on the PET screen, partially processed and 
then stored on the Floppy. As the printer 
takes approximately 15 seconds to print out 
a full page, we can obtain a hard copy 
every 3 handshakes. 

The following notes give further details of 
our technique for handshaking data between 


the PET and external microprocessor. 

PET - M68QO DATA HANDSHAKE 

Figure 1 shows the basic flow diagram for 
the handshaking of 128 bytes of data from a 
Motorola M6800 into the PET. The data 
arrives from the M6800 onto the user port 
data lines (memory location $E841), and the 
interrupt request comes to the memory 
expansion port which is also connected to a 
floppy disk. The handshaking routine is 
designed so that this operation is carried 
out before the PET services any of its 
internally-generated interrupts, and 
resides in the cassette #2 buffer - 
starting address $033A (826 decimal). The 
machine code routine is shown in Figure 2. 

In order that the above routine is executed 
before any internal interrupts, the vector 
pointer must be reset so that PET jumps 
directly to $033A. This could be done 
directly by the commands: POKE 537,(low 
order byte): POKE 538,(high order byte), 
but if an interrupt occurs before the high 
order byte has been stored, the system will 
crash. For this reason, the pointer must 
be reset by the machine code routine shown 
in Figure 3, which is loaded from BASIC 
into the top of cassette #2 buffer, and run 
by a SYS command. If PET is servicing a 
routine when the M6800 sends IRQ, it will 
continue with that routine, but IRQ will 
still be low when it finishes, so PET will 
service M6800 immediately on completion of 
the RTI instruction. Hence the M6800 will 
continue to request until PET acknowledges 
by sending the 'DATA REQUEST' pulse. 



(The handshake routine finishes by storing 
a flag in $0377 [887 decimal] which can be 
tested from BASIC by the PEEK(887) command, 
always remembering to reset the flag as 
soon as it has been found.) 


M6800 


PET 



return from 
subroutines 


FIGURE 1 Flow chart for data handshaking 


LDfl 

TE841 

READ DATA 

CMP 

#*FD 

;IS $FD ON THE DATA LINES? 

BNE 

EXIT 


LBV 

#0 


LDfl 

#$E 1 

;$FD OH THE LINES - 

ORfi 

*E84C 

AND -DATA REQUEST" 

ST FI 

*E84C 


LDfl 

#2 


AND 

$E84D 

;WAIT FOR "DATA VALID" OH CAI 

EEC! 

L3 


LDfl 

#$DF 



on 













REMOVE "DATA REQUEST" 


AND 

*E84C 

STA 

*ES4C 

LDA 

*ES41 

STA 

*0378. 

IN V 
CPV 

#*80 

BNE 

L2 

LDA 

#*FF 

STA 

*0377 

-IMP 

BASIC 


:PULL CB2 - 

; pi IJ DATA IN STORE 
;RESETTING CAI 


DONE? 

; :-;ET FLAG •" HANDSHAKE COMPLETED" 
;TO EE TESTED EV BASIC 
;RETURN TO BASIC 



LBA (LOW ORDER BYTE.? 

STA T0219 

LDA (HIGH ORDER BYTE.:' 

;-;T A *021A 

CL I 

Figure 3 ''‘Machine code program to reset PET'S interrupt pointer 


UHF 












Beginning machine code 


Paul Higginbottom 

INSTRUCTION MODES AND 6502 OPERATIONS 

You remember last time I left you a program 
that I said I would let you ponder over, 
and that I would go over it this time ? 

Well here goes: 

The program demonstrated many different 
principles of 6502 machine code 
programming, and instruction modes. These 
will be explained statement by statement. 

When I say "instruction mode", this means 
that there are different modes for 
different instructions, and, in fact, many 
instructions can be executed in more than 
one mode. An example of his is the LDA 
instruction, used last time. It can be 
used in the "immediate" mode. This means 
that the accumulator can be loaded directly 
with a value, rather than the contents of a 
memory location. Another mode of the LDA 
instruction is "absolute". This means that 
the address is given after the instruction 
(instead of a value), and the Accumulator 
is loaded with the contents of the memory 
at the specified address. 

line 1: LDA #$01 - This is an immediate 
mode instruction and 'says' :load the 
accumulator with the value $01 (the '#' 
symbol tells the assembler that is a value 
rather than the contents of memory location 
$01 that is to be loaded into the 
accumulator). Immediate mode means that the 
value to be used is immediately after the 
instruction, rather than the contents of a 
memory location defined by the operand. 

line 2: LDX #$00 - This is also an 
immediate mode instruction and 'says' :load 
the X register with the value $00. 

line 3: STA $8000,X - This is an absolute 
indexed mode instruction and says: store 
the contents of the accumulator at the 
address [$8000 + the contents of the X 
register] 

line 4: INX - This is an implied mode 
instruction since the instruction itself 
defines what register the operation is 
being performed on. The instruction says:- 
Increment the X register by one. 

line 5: CPX #$28 - This is an immediate 
mode instruction and says: compare the 
contents of the X register with $28 

line 6: BNE $033E - This is an implied mode 
instruction and says: branch if not equal 
to the address $033E. Thus, if the 
comparison of X and $28 (or decimal 40) was 
not equal, i.e X<>40, then branch back to 
the address $033E, and continue executing. 
The BRANCH instructions will be explained 
fully later in this article. 

line 7: RTS - This is an implied mode 
instruction and says: return from 
subroutine. This instruction will cause 
execution of this routine to cease, and 


return to where it was executed from. As 
this was a SYS call, then it will return to 
a usual basic 'ready' mode. 

In the processor, there are many registers, 
some I have already mentioned. I think that 
now would be a good time to describe those 
registers. 

ACCUMULATOR - This is the main eight bit 
register, around which most of the 
instructions are based. 

X register - This is an eight bit index 
register. 'Index' means that it can be used 
to offset a base address by its contents. 
This was shown in the first program. 

Y register - This is also an eight bit 
index register and has similar facilities 
as the X register. However some 6502 
instructions are designed only for use with 
the X or the Y registers but not both. 

Status register - This is possibly the most 
valuable and vital register in the 
processor. It uses each of its eight bits 
to describe a state that has arisen by one 
instruction, or by a sequence of 
instructions. 

Each bit will be described below:- 
N V B D I Z C 
N - Negative Flag. 

This is set if a negative condition is 
made. This could be done with a 
subtraction, decrement, comparison or some 
other instruction. There are no 
instructions to set it directly. (The 
comparison instruction, does an internal 
subtraction and sets the flags according to 
the result of the subtraction). BMI (branch 
on minus) will take the branch if the 
negative flag is set. 

V - Overflow Flag. 

This is set if a result actually overflowed 
the register being operated on, e.g if a 
value is added to a register that makes it 
go over $FF (or 255 decimal), then the 
value in the register would be the 
result-256, and this might make 
mathematical calculations go wrong, and so 
the overflow flag is set. It may be cleared 
directly with the instruction CLV (clear 
overflow flag). It may be detected by the 
instructions BVC (branch on overflow clear) 
and BVS (branch if overflow set). 

B - BRK command executed. 

This is set if the BRK (break) instruction 
is executed. It would not be worthwile 
covering this at the moment. 

D - Decimal mode flag. 

This is set and cleared by SED and CLD 
(set, and clear decimal mode) instructions. 
If decimal mode is set, then the add and 
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KRAM 

a^l M : 1. 


KEYED RANDOM 
ACCESS METHOD 


Now available in the UK! 

KRAM is quite simply a revolution in microcomputer di* access techniques, 
and another FIRST for the PET! Just plug the KRAM ROM mto your 16K / 32K 
PET load the test of KRAM’s machine language logic from disk (just Uke 
DOS) and with the ten commands illustrated below you have complete control 
of your disk data, either directly by individual key, or sequmtudly m forward 
or reverse ASCII order. KRAM is a development of VSAM rnamfmme 
techniques. KRAM is fast, compact, and does not interfere with BASIC. You II 
wonder how you managed without it! Get cracking —* get KRAM. 


_ „ _ . T r KCS* “CREATE O:MAILFILE,120,l5,1: SYS 24576 

CREATE this example tells KRAM to create an indexed file called 

MAILFILE on the disk in drive zero, with a record length of 120 characters 
and a key length of 15 characters which starts at position 1 of the record. 
KRAM looks at the RESERVED variable KCS to identify the function and its 
parameters; the SYS call tells KRAM to execute the function. The record 
length can be any value up to 254 characters and the key up to 48 charac en, 
a total of 302. KRAM pais as many records into the 255 character disk block 
as necessary. 


noI-M KCS”“OPEN 0:MAILFILE”: SYS 24579 The tells 

U r L A KRAM that we will want to make accesses to the file 

called MAILFILE on the disk in drive zero. KRAM returns in location zero 
(peek (0)) the fde number by which this file can be accessed during the rest of 
the program. 

, nn KCS-“ADD IN AS ADS”: SYS 24591 This tells 

A u u KRAM to add to file number one the data in variable 

ADS whose key is NAS. For example in a mailing list, nughtbe 

the name ‘SMITH AJ.’ and ADS might be the address 120, HIGH STREET, 
ANYTOWN'. Any normal double character string variable can be used to denote 
the key and the record. 

rrT KCS-“GET 1 NAS ADS”: SYS 24582 This tells 

,J 1 KRAM to get from file number one the data belonging 

to the kev NAS and put it into variable ADS. In our example, if NAS was 
“SMITH A. J.’, KRAM would read the address T20, HIGH STREET, 
ANYTOWN’ from file and put it into variable ADS. If we weren’t sure of the 
exact surname, we could give KRAM the key “SM’ and it would get for us the 
next alphabetically higher name beginning ‘SM\ together with its address! Or if 
we gave KRAM a blank key, it would find the first name and address on file. 


„p, n KCS»“READ 1 NAS ADS": SYS 24585 This tells 

KLU KRAM to read the data belonging to the next highest 

key following the name in NAS, and put it into variable ADS. In our example, 
a complete file of names and addresses could be read in alphabetical order, 
starting at any name in the file, simply by executing successive READ 
commands! For instance, having got Mr A. J. Smith from file, executing the 
READ command as above would get us say ‘SMITH M.’ in NAS together with 
his address in ADS. 

oc . . KC$»“READ-1NASAD$”: SYS 24585 This works 

KtAU - ljke read excep, BACKWARDS! It tells KRAM to 

read the data belonging to the next lowest key preceding the name in NAS, 
and put it into ADS. For instance, having read ‘SMITH M.’ with the formed 
read, executing the backward read as above would get us ‘SMITH AJ. in 
NAS together with his address in ADS. 

p,, T KCS* “PUT 1 NAS ADS”: SYS 24588 This teBs 

r u KRAM to rewrite to file number one the data in 

variable ADS which belongs to key NAS. For instance, if we wanted to change 
Mr AJ. Smith’s address, we would simply set NAS equal to “SMITH AJ.’ 
ADS equal to his new address, and execute the PUT function. 

nr I FTP KCS-“DELETE 1 NAS ADS”: SYS 24594 This tells 

DC.LE. 1 E. KRAM to delete from file number one the key 

contained in NAS and its associated data contained in ADS. In our example, 
to delete Mr A.J. Smith from the file, we would simply set NAS equal to 
“SMITH AJ.’, ADS equal to his address, and execute the DELETE function. 
KRAM will release for further use the di* space made available by the deletion. 

n ocr KCS*“CLOSE 1”: SYS 24597 This teBs KRAM that 

■ file one is finished with for now. KRAM updates the 

BAM on disk, but the file can stBl be used without another OPEN command. 


INITIALIZE 


SYS 24600 This function is used at the beginning of 
each program to clear KRAM’s work areas and buffers. 


The examples above illustrate the use of KRAM in a mailing list application, 
with disk access times from less than one second. KRAM can of course be 
used in any application program with the Commodore disk where programmer 
time, user time and disk space are at a premium. 

Each KRAM package includes a ROM which plugs into the middle ROM socket 
of the 16K/32K Pet, a demonstration didc with a mailing list program and a 
40-page User Reference Manual. KRAM is available by post (cash with order) 
price £115 including VAT, or by credit card phone the KRAM 24 Hour Order 
Desk on 01-546 7256;orseeyournearest dealer. (Quantity discounts avaBable). 

Galen Software 

Lakeside House,Kingston HilLSurrey KT2 7QT 01-546-7256 
Mainframe software at a micro price 


ENTHUSIASTIC 

PET 

PROGRAMMERS 

Salary C.E8000 pa 

Adda Computers, West London's leading 
Commodore Dealer and its medical 
software subsidiary, Medicom, are 
committed to learning all it is possible to 
know about the PET Computer. We need 
experienced PET programmers to help us. 

If you want to program in BASIC, 
Assembler and Pascal, to learn about 
interfacing, PET to mini communications 
and multi use PET systems, then this is 
the ideal opportunity. 

Telephone Dave Whitehead on 
01-579 5845 

If you are not a PET specialist but an 
enthusiastic trainee, call us anyway. 


TRAINING OFFICER 

Commodore are looking for an 
experienced Training Officer to take 
on the responsibility for Programming 
Courses. 

The job involves the design, development, 
organisation and running of Programming 
Courses in BASIC and other languages. It 
is based in London. There is ample 
opportunity to develop personal skills 
using the most modern, up-to-date 
microcomputer equipment. 

If you have a programming background 
and the ability to present your ideas 
clearly, this could be an ideal opportunity 
for you. 

Salary from 7,500, depending on 
experience 

Write (giving details of present salary and 
enclosing a C.V.) to: 

Mike Gross-Niklaus 
Training Manager 
Commodore Business Machines 
360 Euston Road 
London NW1 3BL 







subtract instructions work in a different 
way. The results are left in BCD (binary 
coded decimal). 


;UPPER 8 BITS OF BERT 
STA JOE+1 ;AND STORE THE RESULT IN 
;THE UPPER 8 BITS OF JOE 


Decimal mode off. 

3 9 (base sixteen - HEX) 

0011 1001 = 57 in decimal. 

Decimal mode on. 

5 7 (base ten - decimal) 

0101 0111 = 57 in decimal 

As can be seen, all that happens is 
that the result is transformed to leave the 
first decimal digit in the first four bits, 
and the second, the upper four bits. This 
is useful for decimal output, rather than 
binary or hex. 

I - Interrupts disabled flag. 

This is set if the SEI (set interrupt 
disabled flag) is executed, and reset if 
the CLI (clear interrupt disabled flag) 
instruction is executed. It would not be 
worthwile covering this at the moment. 


Z - Zero flag. 

This is set when any instruction leaves a 
register with 0 in it. It cannot be set or 
reset directly. It can be detected with the 
BEQ (branch if equal), and BNE (branch if 
not equal) instructions. 

C - Carry flag. 

This can be thought of as a ninth bit to 
any register. It can be manipulated 
directly with the SEC (set carry) and the 
CLC (clear carry) instructions. It can be 
detected by the BCC (branch if carry clear) 
and BCS (branch if carry set) instructions. 
If 2 two byte (16 bit) values are to be 
added, and stored in a result, then it is 
necessary to detect a carry from the first 
addition of the two low bytes, which should 
be added to the result of the addition of 
the two high bytes. An example of this 
would be as follows 


Imagine we have two 16 bit values stored in 
the locations FRED, and BERT. This value is 
of course split into two 8 bit values. So 
we have the first value in FRED and FRED+1, 
and the second in BERT and BERT+1. To add 
these two values and store the result in 
JOE and J0E+1, the following code is 


necessary 

CLC 

LDA FRED 


ADC BERT 
STA JOE 
LDA FRED+1 
ADC BERT+1 


CLEAR CARRY FLAG TO 
START WITH 

LOAD THE ACCUMULATOR 
WITH THE CONTENTS OF 
FRED 

THIS IS OF COURSE ONLY 
THE FIRST 8 BITS OF 
ADD WITH CARRY THE 
CONTENTS OF BERT 
AND STORE THE RESULT 
; IN JOE 

LOAD THE UPPER 8 BITS 
; OF FRED 

; ADD WITH THE CARRY THE 


At this point it becomes necessary to 
define what is available to us within the 
6502 microprocessor, and its storage. The 
6502 uses 2 bytes for each address apart 
from those in the range $0000 to $00FF 
(256) bytes, which do not need a high byte 
to describe their address, because in that 
range it is always zero. As was stated in 
the last article, each block of 256 bytes 
is known as a page of memory. The first 256 
bytes ($0000 - $00FF) are known as page 
zero locations and there is a mode of 
instruction called simply 'zero page'. This 
mode tells the processor that it only need 
pick up one byte for the address. 

The 6502 also has what is known as a 
'stack', which is used by the processor as 
well as the programmer. This uses the whole 
of page one memory (that is $0100 - $01FF). 
I will try to explain simply what the stack 
is used for. When doing a GOSUB instruction 
in BASIC, this tells the Pet to jump to a 
given line number and when a RETURN 
instruction is found it must return to the 
statement following the GOSUB instruction. 
So, at the time the GOSUB instruction was 
encountered, it must have some way of 
remembering where it currently is in 
memory, so that it knows where to RETURN 
to. There are instructions PHA (push 
accumulator on stack), PHP (push processor 
status register on the stack), PLA (pull 
accumulator off stack), and PLP (pull 
processor status off stack), which work 
with an eight bit register inside the 
processor called a stack pointer. Each time 
a PHA instruction is done, the contents of 
the accumulator will be put at $0100 offset 
by the stack pointer, and the stack pointer 
will be automatically deceremented by one, 
so that the next push will put the data 
onto the next position on the stack etc. 
Correspondingly, the PLA instruction will 
load the accumulator with the contents of 
the memory whose address is $0100 offset by 
the stack pointer, and the stack pointer 
will be incremented by one etc. 

N.B The movements of the stack pointer also 
apply with the PHP and PLP commands. Going 
back to our GOSUB instruction, by using the 
instructions just described, the PET may 
use the stack to save its current position 
when going off to the subroutine. When a 
RETURN instruction is encountered, it 
simply 'pulls' off the stack the point at 
which it was before entering the subroutine 
and moves onto the next instruction as if 
nothing had happened. This explains why 
there is a maximum level to 'nesting' of 
subroutines (i.e one subroutine calling 
another, which in turn calls another etc.), 
because the stack is of a fixed size and as 
each set of return data is pushed onto the 
stack, the stack slowly gets filled up, 
until an ?0UT OF MEMORY ERROR occurs. You 
can demonstrate this to yourself by typing 
in the basic program 

10 C=C+1:G0SUB10 <RETURN> 

RUN <RETURN> 


oe 




The pet should (after a little while) 
display ?OUT OF MEMORY ERROR IN 10. If you 
print the value of C, this will tell you 
the number of levels of subroutine you had 
got up to before the stack was filled. The 
pet does in fact check to see if the stack 
will be over filled by the next 
instruction. If it didn't, then the pet 
would probably hang itself up. Fortunately 
MICROSOFT (the authors of the basic 
interpreter in the pet) thought of that. 
Right then, we've discussed the stack, and 
how useful that is, I think I should 
explain the BRANCH instructions fully now, 
and I will leave another program for you to 
look at. 

BEQ - Branch if equal, meaning branch if zero 
flag set. 

BNE - Branch if not equal, meaning branch if zero 
flag not set. 

BCC - Branch if carry clear. 

BCS - Branch if carry set. 

BVC - Branch if overflow clear. 

BVS - Branch if overflow set. 

BMI - Branch if negative result, branch if 
negative flag is set 

BPL - Branch if positive result, branch if 
negative flag is not set 


Program to rotate the screen left one byte. 

We shall write this one in standard 
assembler format. 


* =$033A ;PROGRAM STARTS AT 

;$033A 

LOAD ACCUMULATOR WITH 
THE VALUE '$00'. 

STORE IT IN MEMORY 
LOCATION $01 
LOAD ACCUMULATOR WITH 
THE VALUE '$80'. 

STORE IT IN MEMORY 
LOCATION $02 

(HERE I HAVE SET UP IN LOCATIONS 1 AND 2 
THE 16 BIT ADDRESS OF THE START OF THE 
SCREEN - $8000. BYTES 1 AND 2 WILL BE USED 
AS A 16 BIT POINTER TO THE CURRENT LOCATION 
ON THE SCREEN BEING MOVED) 

LDA #$19 ;LOAD ACCUMULATOR WITH 
;THE VALUE 25 (DECIMAL) 
STA $00 ;STORE IT IN MEMORY 

;LOCATION $00 

(HERE I HAVE SET UP IN LOCATION 0 A SCREEN 
LINE COUNTER. I HAVE SET IT TO 25 AND EACH 
TIME I ROTATE A ROW OF THE SCREEN, I WILL 
DECREMENT THIS COUNTER, AND STOP WHEN IT 
REACHES ZERO) 


LDA #?00 
STA $01 
LDA #$80 
STA $02 


START LDY #0 

LDA ( $01), Y 


ZEROISE OFFSET TO 

POINTER 

IN 1 AND 2 

LOAD THE ACCUMULATOR 
WITH 

; the contents of the 

[ADDRESS 

[POINTED TO BY THE 

[BYTES $01 

[AND THE NEXT ONE 


LOOP 


PHA 


INY 

LDA ($01),Y 
DEY 

STA ($01),Y 

INY 

INY 

CPY #$28 


;($ 02 ) 

;OFFSET BY THE 
;CONTENTS OF THE 
;Y REGISTER 
;PUSH THE CONTENTS OF 
;THE ACCUMULATOR ONTO 
;THE STACK. SINCE 
;THIS IS THE FIRST 
;CHARACTER IN THE ROW, 
;WE WILL SAVE IT. THEN 
;PULL THE OTHER 39 
;CHARACTERS BACK ONE 
;POSITION, AND PULL 
;THIS VALUE 
;ba£k OFF THE STACK, 

;AND PUT IT AT THE 
;END OF THE ROW 
;INCREMENT THE OFFSET 
;BY ONE 

;GET A CHARACTER FROM 
;THE ROW 

;DECREMENT OFFSET TO 
;STORE THIS CHARACTER 
; IN THE PREVIOUS 
;POSITION 

;PUT IT BACK ON THE 
;SCREEN 

;INCREMENT Y TO WHAT 
;IT WAS 

;MOVE ONTO THE NEXT 
;SQUARE 

;HAVE WE REACHED THE 
;LAST POSITION ON THE 
;LINE ? I.E HAS THE 


BNE LOOP 
PLA 


DEY 

STA ($01),Y 

DEC $00 
BEQ EXIT 

CLC 

LDA $01 

ADC #$28 
STA $01 
LDA $02 
ADC #$00 


OFFSET 

GOT TO 40 (DECIMAL) 
IF NOT - GO BACK AND 
DO IT AGAIN 
WE HAVE - SO PUT 
SAVED CHARACTER 
BACK ONTO THE SCREEN 
PULL BYTE OFF STACK 
INTO THE ACCUMULATOR 
RESET OFFSET TO LAST 
POSITION 

PUT IT IN THE LAST 
POSITION 

DECREMENT LINE COUNT 
IF EQUAL TO ZERO - 
THEN EXIT 
CLEAR CARRY 
OTHERWISE - BUMP 
POINTER BY 40 
ADD $28 TO LOW BYTE 
AND STORE RESULT 
GET HIGH BYTE 
ADD NOTHING + THE 


;CARRY 

JMP START ;JUMP BACK TO THE 
;START 


EXIT RTS ;FINISHED - RETURN 

;FROM SUBROUTINE 


There you go. Have a look at this until 
next newsletter, when I will explain how it 
works. 


Bye. 






Supermon 

SUPERMON - OLD R OM VERSION 


David A Hills 


honourable retirement. All of the commands 
for SUPERMON are the same, as given in 
CPUCN Vol. 2 Issue 3. 


Here is a chance for those of you with the 
OLD ROM 8K PET to have a go with the superb 
SUPERMON program. The TIM monitor has been 
included in with SUPERMON so once it's been 
entered you should be able to put TIM into 


Save SUPERMON using the TIM SAVE command 
from 16F6 to 2000. 

To enter the program when it has been 
loaded type: SYS 6726. 


SUPERMON 

Modified for use with Old ROMs by » 
D.A. Hills, 

19, St. Anthonys Drive, 

Chelmsford, 

Essex. 


Monitor is entered by SYS(6726) 

Exit to BASIC by 

Save on tape with i- 
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Regional Educational Conferences 


We are pleased to announce that we will be putting on 
conferences for teachers in Glasgow, Manchester, Birmingham, 
Bristol and London in mid September. 

Further details will be included in the next issue of 
CPUCN and the new addition of Microcomputers in schools and 
Colleges. 

Admission to the conference will be free. 

Topics to be covered will include. Software development for 
the classroom and first hand accounts of experiences with the 
Pet. We would like to contact teachers who are using a Pet 
in these areas with a view to them contributing to the conference. 

Teachers who would like to give a short paper at the 
conference, are asked to contact: 

CBM Ltd., 

Nick Green, 

360 Euston Road, 

London, 

W.l. 


Free Workshop Software 

If you are using Pets in your school, college or university, 
and teachers in your area are using these Pets, for example, 
out of school hours for software development purposes or 
training, we will send you on cassette tape some 43 programs from 
North America and Canada. The programs cover a wide range of 
ages and subject matters and some are written to a very high 
standard indeed. Others you will be less impressed with. 

These programs maybe modified in any way you wish and distribited 
in any way you wish. We hope that they will inspire you to 
new heights. In a few months time we hope to have collected 
from you improved versions and indeed new programs that you 
would like distributed in the same way. 


Please send me free Workshop Software 1. 

We are allowing teachers in our area access to Pets, when 
not in use, for Workshop purposes: 


Does your Institution offer courses to teachers? 
If so, please give details below: 


NAME: 


ADDRESS: 


NO. OF PETS:_ 

PERIPHERALS:_ 

AVAILABILITY OF PETS: 


a) 

Dates _ 

b) 

Times _ 


Would you be interested in attending a free one-day course 
cn Pet Architecture in London for Workshop organizers? 


Please fill in the above and send to: 


Commodore, 

Education Department, 
360 Euston Road, 
London, 

W.l. 








Firmwear 


PET ROM Genealogy 




The PET/CMB computer has been around for 
over two years and, in that time, various 
changes have been made to the system 
software stored in the ROMs. To bring you 
up to date and clarify any confusion that 
may have been caused by the number of 
different ROM sets, we are publishing the 
following list with explanations. 

When the PET 2001 first went into 
production, there were two ROM Sets 
incorporated into the system. One ROM Set 
is the 6540 type ROM. This is a 28 Pin Rom 
which is manufactured by MOS Technology, 
Inc. You will find these ROMs in the 
following locations on the PET 2001-4K and 
2001-8K Main Logic Board: 


If your PET/CBM has the Basic Level I 6540 
ROMs, you could use the following ROMs 
which come in the form of a Retrofit Kit to 
upgrade your PET/CBM to Basic Level II. 


Location 

ROM 

Part Number 

HI 

6540-020 

901439-13 

H2 

6540-022 

901439-15 

H3 

6540-024 

901439-17 

H4 

6540-025 

901439-18 

H5 

6540-021 

901439-14 

H6 

6540-023 

901439-16 

H7 

6540-026 

901439-19 


.ati<?n 

ROM 

HI 

6540-019 

H2 

6540-013 

H3 

6540-015 

H4 

6540-016 

H5 

6540-012 

H6 

6540-014 

H7 

6540-018 

A2 

6540-010 


Part Number 

901439-09 or 01 

901439-02 

901439-03 

901439-04 

901439-05 

901439-06 

901439-07 

901439-08 


NOTE: There is an 019 ROM at the HI 
location. On some earlier Main Logic 
Boards you will find a 6540—011 at H». 

This ROM has been updated to an 019 due to 
an intermittent bug in the edit software. 
This ROM Set is Basic level 1. 


If your PET/CBM has the Basic Level I 2316B 
ROMs, you would use the following ROMs 
which come in the form of a Retrofit Kit to 
upgrade your PET/CBM to Basic Level II: 


Location 

ROM 

Part Number 

HI 

901465-01 

901465-01 

H2 

901465-02 

901465-02 

H3 

901465-24 

901465-24 

H4 

901465-03 

901465-03 

H5 

Blank 


H6 

Blank 


H7 

Blank 



The following ROM Sets are the ROMs that 
are currently being used in production. 
There are two sets of ROMs in use. If you 


The other ROM Set incorporated into the PET 
2001 is a type 2316B 24 Pin ROM. You will 
find these ROMs in the following locations 
on the PET 2001-4K and 2001-8K Main Logic 


have a graphic style PET, you should have 
the following ROMs in your unit: 

Location ROM Part Number 


Board: 



Location 

ROM 

Part Number 

HI 

901447-09 

901447-09 

H2 

901447-03 

901447-03 

H3 

901447-05 

901447-05 

H4 

901447-06 

901447-06 

H5 

901447-02 

901447-02 

H6 

901447-04 

901447-04 

H7 

901447-07 

901447-07 

A2 

901447-08 

901447-08 


NOTE: There is an 09 ROM at the HI 
location. On some earlier Main Logic 
Boards you will find a 901447-01 ROM. This 
ROM has been updated to an 09 ROM due to an 
intermittent bug in the edit software. 

Like the 6540 ROM Set, this too is a Basic 
Lever 1 ROM Set. To determine what the 
6540 and 2316B ROMs listed above are 
capable of, I would refer you to the "PET 
User Manual" Model 2001-8. 

The next two ROM Sets are Basic Level II 
ROMs, and are fitted as standard on all 16 
and 32K PET/CBMs. They are also Retrofit 
Kits for the 2316B and 6540 Basic Level 1 
ROMs. The Basic Level II ROMs include the 
machine language. Basic Level II allows 
you to interface the Commodore 2040 Dual 
Floppy to your PET/CBM. Basic Level I ROMs 
will not allow you to interface the 2040 
Dual Floppy to your PET. The Basic Level 


D3 

Blank 


D4 

Blank 


D5 

Blank 


D6 

901465-01 

901465-01 

D7 

901465-02 

901465-02 

D8 

901447-24 

901447-24 

D9 

901465-03 

901465-03 

F10 

901447-10 

901447-10 

If your computer is a 

business style, you 

should have the following ROMs in your 
unit: 

Location 

ROM 

Part Number 

D3 

Blank 


D4 

Blank 


D5 

Blank 


D6 

901465-01 

901465-01 

D7 

901465-02 

901465-02 

D8 

901447-01 

901447-01 

D9 

901465-03 

901465-03 

The ROMs 

in the graphic and business 

PET/CBM 

are Basic Level III ROMs. To 


determine what any machine fitted with 
Basic Level III is capable of, you should 


refer to the "CBM User Manual" Model 
2001-16, 16N, 32, 32N. 


The ROMs currently being used in production 
of the 3040 Dual Floppy are as follows: 




Tnr.af.iQn ROM Part NumfeSE 


UL1 

901468-06 

901468-06 

UK1 

Blank 


UH1 

901468-07 

901468-07 

UK3 

6530-02 

901466-02 


These ROMs are DOS Version I. 

New 80 column PET BASIC 4.0 DOS 2.1 
Retrofit ROMs will be available in about 60 
days time at £38.00 BASIC 4.0,1.38.00 


dos2.1. 

New BASIC eliminates garbage collection 
problems and has a powerful direct access 
feature which considerably enhances the 
disk system. 

BASIC has been extended to include a number 
of D.U.M. (Disk Utility Maintenance) 
features, considerably improving "User 
Friendliness". DOS 2.1 simply enables the 
new commands to be recognised. 


Mff.w BOM TO OI.D ROM CON VERSION TABLES FOR PAGE ZfiRfi 


NEW PET NEW PET OLD PET OLD PET FUNCTIONS 


DEC 

HEX 

DEC 

HEX 

0 

$0000-$0002 


$0000-$0002 

1-2 

$0000-$0002 

1-2 

$0000-$0002 

3. 

$0003 

90 

$005A 

4. 

$0004 

91 

$005B 

5. 

$0005 

92 

$005C 

6. 

$0006 

93 

$005D 

7. 

$0007 

94 

$005E 

8. 

$0008 

95 

$005F 

9. 

$0009 

96 

$0060 

10. 

$000A 

97 

$0061 

11. 

$000B 

98 

$0062 

12. 

$000C 

99 

$0063 

13. 

$000D 

100 

$0064 

14. 

$OOOE 

3 

$0003 

15. 


6 


16. 


7 


17-18 

$0011-$0012 

8-9 

$0008-$0009 

19. 

$0013 

101 

$0065 

20-21 

$0014-$0015 

102-103 

$0066-$0067 

22-29 

$0016-001E 

104-111 

$0068-$0070 

.. 

30-31 

$001F-0020 

112-113 

$0071-$0072 

32-33 

$0021-$0022 

114-115 

$0073-$0074 

34-39 

$0023-$0027 

116-121 

$0075-$0078 

40-41 

$0028-$0029 

122-123 

$007A-$007B 

42-43 

$002A-$002B 

124-125 

$007C-$007D 

44-45 

$002C-$002D 

126-127 

$007E-$007F 

46-47 

$002E-$002F 

128-129 

$0080-$0081 

48-49 

$0030-$0031 

130-131 

$0082-$0083 

50-51 

$0032-$0033 

132-133 

$0084-$0085 

52-53 

$0034-$0035 

134-135 

$0086-$0087 

54-55 

$0036-$0037 

136-137 

$0088-$0089 

56-57 

$0038-$0039 

138-139 

$008A-$008B 

58-59 

$003A-$003B 

140-141 

$008C-$008D 


POKE LOCATION CHANGE 

USER FUNCTION ADDRESS L0;HI 

GENERAL COUNTER FOR BASIC SEARCH [SEARCH 

CHRTR-USUALLY •:' OR ENDLIN] 

; 00 USED AS DELIMITER [SCAN BETWEEN 
QUOTES FLAG] 

GENERAL COUNTER FOR BASIC [INPUT BUFFER 
PNTR] [ # OF SUBSCRIPTS] 

FLAG TO REMEMBER DIMENSIONED VARIABLES [1ST 
CHAR OF ARRAY NAME] 

FLAG FOR VARIABLE TYPE 0=NUMERIC;1=STRIN6 
[$FF STRING] 

FLAG FOR INTEGER TAPE [80=INTEGER; 

00=FL0ATING POINT 

FLAG TO CRUNCH RESERVED WORDS [DATA SCAN 
FLAG/LIST QUOTE FLAG] 

FLAG WHICH ALLOWS SUBSCRIPTS IN SYNTAX 
[FN X FLAG] 

FLAG INPUT OR READ [0=INPUT;64=GET;152=READ] 
FLAG SIGN OF TAN [FLAG FOR TRIG SIGNS/ 
COMPARSN EVALUATION FLAG] 

FLAG TO SUPPRESS OUTPUT [+=NORMAL; 
-=SUPPRESSED] 

ACTIVE I/O CHANNEL [PROMPT-SUPPRESS] 

TERMINAL WIDTH (UNUSED) 

LIMIT FOR SCANNING SOURCE [COLUMNS UNUSED] 
LINE NUMBER BEFORE STORAGE [INTEGER ADDRESS 
FROM BASIC 

INDEX TO NEXT AVAILABLE DESCRIPTOR [VARIBL 
DESCRPTR STACK PNTR] 

POINTER TO LAST STRING TEMPORARY LO;HI 
[SECOND DESCRPT PONTER] 

TABLE OF DOUBLE BYTE DESCRIPTORS WHICH POINT 
TO VARIABLES 

[DESCRIPTOR STACK FOR TEMPORARY STRINGS] 
INDIRECT ADDRESS #1 L0;HI [POINTER FOR NUMBER 
TRANSFER] 

INDIRECT INDEX #2 L0;HI [NUMBER POINTER] 
PSEUDO REGISTER FOR FUNCTION OPERANDS 
POINTER TO START OF BASIC TEXT AREA L0;HI 
POINTER TO START OF VARIABLES L0;HI [END OF 
BASIC/START VARBL] 

POINTER TO ARRAY TABLE LO;HI [END VARIABLES/ 
START ARRAYS] 

POINTER TO END OF VARIABLES LO;HI [START OF 
AVAILBL SPACE PTR] 

START OF STRINGS POINTER L0;HI [BOTTOM OF 
STRINGS (MOVING DOWN)] 

TOP OF STRING SPACE POINTER LO;HI [MOVING 
DOWN] 

HIGHEST RAM ADDRESS LO;HI [TOP OF BASIC 
MEMORY] 

CURRENT LINE BEING EXECUTED (54=2 MEANS 
DIRECT)[CURRENT LN #] 

LINE NUMBER FOR CONTINUE COMMAND LO;HI [LINE 
# SAVED BY END] 

NEXT STATEMENT TO EXECUTE LO;HI [PREV LINE# 
FOR CONT] 

32 








60-61 

62-63 

63... 

64-65 

66-67 


$003C-$003D 142-143 
$003E-$003F 144-145 
$0040-$0041 146-147 
$0042-$0043 148-149 


$008E-$008F 

$0090-$0091 

$0092-$0093 

$0094-$0095 


DATA LINE# FOR ERRORS LO;HI [LINE# OF DATA 

DATA''STATEMENT POINTER LO;HI [READ POINTER] 
[MEMORY ADDRESS OF DATA LINE] 

SOURCE OF INPUT LO;HI [INPUT VECTOR (DATA 
ETC)][DATA STMT PTR] 

CURRENT VARIABLE NAME [CURRENT VARIABLE 


68-69 

$0044-$0045 

150-151 

$0096-$0097 

70-71 

$0046-$0047 

152-153 

$0098-$0099 

72-73 

$0048 

154-155 

$009A 

15 .. 

74. 

$004A 

156 

$009C 

75-76 

$004B-$004C 

157-158 

$009D-$00A1 

77-78 

$004D-$0050 

159-160 

$009D-$00A1 

79. 

80. 

$004D-0050 

$004D-$0050 

161 

162 

$009D-$00A1 

$00A2 

81. 

$0051-$0053 

163 

$00A3-$00A5 

82-83 

84-89 

90-91 

$0051-$0053 
$0054-$0058 
$0059-$005D 

164-165 

166-171 

172-173 

$00A3-$00A5 

$00A6-$00AA 

$00AB-$00AF 

92-93 

$0059-$005D 

174-175 

$00AB-$00AF 

94-99 

$005E-$0063 

178-181 

$00B0-$00B5 

yt>. 

100 

$0064 

182 

$00B6 

101 

$0065 

183 

$00B7 

102-107 

103.... 

$0066-$006B 

184-189 

$00B8-$00BD 


POINTER TO VARIABLE IN MEMORY LO;HI [CURRENT 
VARBLE START ADR] 

POINTER TO VARIABLE REFERRED TO IN CURRENT 
FOR-NEXT 

POINTER TO CURRENT OPERATOR IN TABLE LO;HI 
[154 Y SAVE REGISTER/NEW OPERATOR SAVE] 
SPECIAL MASK FOR CURRENT OPERATOR [CMPR 
SYMBL ACMLTR <1=2>4] 

FUNCTION DEFINITION POINTER LOjHI [NUMBER 
WORK AREA FOR SQR..] 

POINTER TO A STRING DESCRIPTION LO;HI [NMBR 
WRK AREA 157-161] 

LENGTH OF ABOVE STRING 

CONSTANT USED BY GARBAGE COLLECT ROUTINE 
[3 OR 7 FOR GRBG CLT] 

$4C CONSTANT-6502 JMP INSTRUCTION [JUMP 
VECTOR FOR FUNCTIONS] 

VECTOR FOR FUNCTION DISPATCH LO;HI 
FLOATING ACCUMULATOR #3 [NUMERIC STORE AREA] 
BLOCK TRANSFER POINTER #1 LO;HI [NUMERIC 
STORE AREA] 

BLOCK TRANSFER POINTER #2 LO;HI [NUMERIC 
STORE AREA] 

FLOATING ACCUMULATOR #1 (USER FUNCTIIION 
EVALUATED HERE) 

.[PRIMARY ACCUMLATR E,M,M,M,M,S][MSB 
PARAMETERS 181-FLPT SIGN] 

DUPLICATE COPY OF MANTISSA OF FAC #1 [TAYLOR 
SERIES CONST CNTR] 

COUNTER - NUMBER OF BITS TO SHIFT TO 
NORMALIZE FAC #1 [SEE 103] 

FLOATING ACCUMULATOR #2 [SECONDRY ACUMULTR 
HLDNG AREA] 

.[101 IS ACCUMULATOR HIGH ORDER PROPOGATION 


108 $006C 

109 $006D 

110-111 $006E-$006F 

111 . 

112-117 $0070-0087 

118 $0070-$0087 

119-120 $0070-$0087 

121-140 $0088-$008C 


190 $00BE 

191 $00BF 

192-193 $00C0=$00C1 


194-199 $OOC2-$OOD9 

200 $00C2-$00D9 
201-202 $00C2-$00D9 
203-223 


WORD] 

OVERFLOW BYTE FOR FLOATING ARGUMENT [SIGN 
COMPARSN PRIM/SCND] 

DUPLICATE COPY MANTISSA SIGN [LOW ORDER 
ROUNDING BYTE-PRM ACML] 

POINTER TO ASCII REP OF FAC IN CONVERSION 
ROUTINE LO;HI 

.[CASSETTE BUFFER LENGTH/TAYLOR CONSTANT 
POINTER] 

CHARGET RAM CODE GETS NEXT CHARACTER FRCM 
BASIC TEXT 

CHRGET RAM CODE TEGETS CURRENT CHARACTERS 

POINTER TO SOURCE TEXT LO;HI 

NEXT RANDOM NUMBER IN STORAGE / OR 








136-140 

141-143 

$0088-008C 
$008D-$008F 

144-145 

$0090-$0091 

146-147 

$0092-0093 

148 

150 

151 

$0094-$0095 

$0096 

$0097 

152 

$0098 

153-154 

$0099-$009A 

155. 

$009B 

157 

$0090 

158 

$009E 


512-514 

$0200-$0202 

537-538 

$0219-$021A 

539-540 

$021B-$021C 

524 

$020C 

515 

$0203 

516 

$0204 

517-518 

$0205-$0206 

521 

$0209 

523 

$020B 

525 

$020D 


NEXT RANDCX4 in storage 

24 HOUR CLOCK IN 1/60 SEC [CLOCK THAT 

INCREMENTS 60 PER SEC] 

IRQ RAM VECTOR LO;HI [BREAK INTERRUPT 

VECTOR] 

BRK INSTRUCTION RAM VECTOR LO;HI [BREAK 
INTERRUPT VECTOR] 

NMI RAM VECTOR 

I/O OPERATION STATUS BYTE [STATUS (ST)] 

LAST KEY INDEX [WHICH KEY DEPRSD/255=N0 KEY] 
[MATRIX ROW COLUMN] 

SHIFT FLAG (0=NO SHIFT/1=SHIFT)[SHIFT KEY 1 
IF DEPR ES SED] 

CORRECTION FACTOR FOR CLOCK LSB; MSB [CLOCK 
INCR01ENTS 30/SEC] 

DUPLICATE OF 59410(NEW?)BOTTOM ROW KEYS 
[KEYSWITCH PIA FLAGS] 

FLAG <> MEANS VERIFY NOT LOAD INTO MEMORY 

[LOAD=0*VERIFY=1] „ „ 

INDEX INTO KEYSTROKE BUFFER [# OF CHARACTERS 

wirnrrmv OTTT?I?E , Dl 


159 

$009F 

526 

$020E 

160-166 

$00A0-$00A6 



167 

$00A7 



168 

$00A8 

549 

$0225 

169 

$00A9 

550 

$0226 

170 

$00AA 

551 

$0227 

171-173 

$00AB-$00AB 



174 

$00 AE 

610 

$0262 

175 

$OOAF 

611 

$0263 

176 

$00 BO 

612 

$026 A 

177 

$00B1 

613 

$0265 

178-185 

$00B2-$00B9 



180 

$00B4 

229-233 


181 

$00 B5 

616 

$026 8 

184 

$00B8 

621 

$026 D 

186 

$00BA 

624 

$0270 

187-188 

i aft 

$OOBB-$OOBC 

625-626 

$0271-$0272 

189 

$00BD 

627 

$0273 

190 

$00BE 

628 

$0274 

191 

$OOBF 

629 

$0275 

192-193 

193.... 

$00C0-$00C1 

630-631 

$00C0-$00C1 


194 

$00C2 

632 

$0278 

195 

$00C3 

633 

$0279 


FLAG TO INDICATE REVERSE FIELD ON 
UNUSED 

CURSOR ON FLAG 

COUNT OF JIFFIES TO BLINK CURSOR [CURSOR 
TIMING CNTDN][POKE=1] 

SCREEN VALUE OF CHARACTER UNDER CURSOR 
CHAR SAVED DURING BLNK/CRSR ON/OFF FLG [CURSR 
BLNK FLG/POKE=0] 

UNUSED 

POINTER INTO LOGICAL FILE TABLE [NUMBER OF 
OPEN FILES] 

DEFAULT INPUT INTO DEVICE # [NORMALLY=0] 
DEFAULT OUTPUT DEVICE # [OUTPUT TO CMD 
DEVICE, N0RMALLY=3] 

TAPE VERTICAL PARITY/COMPUTATION OF PARITY 
ON CASSETTE WRITE 


GENERAL PURPOSE AND ADDRESS DIRECT LO;HI(ALSO 

LOCATN 201-204) , „„„ 

TAPE BUFFER ITEM COUNTER [POINTER IN FILE 

NAME TRANSFER] 

[COUNT OF REDUNDANT TAPE BLOCKS] 

SYNC ON TAPE HEADER COUNT/COUNTDOWN 

SYNC ON CASSETTE WRITE 

POINTER TO ACTIVE CASSETTE/OR 

INDEX NEXT CHARACTER IN/OUT TAPE BUFFER #1; 

#2[187 FOR #1/188 - #2] 

COUNTDOWN SYNCHRONISATION - CASSETTE READ 
READ[LEAD CNTR/PASS 1/2] 

FLAG TO INDICATE BIT/BYTE TAPE ERROR[WRITE 
NEW BYTE] 

FLAG TO INDICATE TAPE ROUTINE READING SHORTS 
[WRITE START BIT] 

INDEX TO ADDRESSES TO CORRECT ON TAPE READ 
PASS 1;PASS 2 

.[192 FOR PASS 1 ERROR LOG POINTR/193 FOR 
PASS 2 ERR LOG PNTR] 

FLAG-CASSETTE READ-TELLS CURRENT FNCTN- 
CNTDWN,READ 

COUNT OF SECONDS OF SHORTS TO WRITE BEFORE 
DATA [CHECKSUM] 















196-197 

$00C4-$00C5 

224-225 

$00E0-$00E1 

198 

$00C6 

226 

$00E2 

199-200 

$OOC7-$OOC8 

227-228 

$00E3-$00E4 

200. 

201-202 

$00C9-$00CA 

229-233 

$00E5-$00E9 

202. 

205 

$00CD 

234 

$00EA 

206-208 

209 

$00CE-$00D0 

$00D1 

238 

$00EE 

210 

211 

$00D2 

$00D3 

239 

240 

$00EF 

$00F0 

212-213 

$00D4-$00D5 

241 -242 

$OOF1-$OOF2 

214-215 

216 

$00D6-$00D7 

$00D8 

243-244 

245 

$00F3-$00F4 

$00F5 

217 

$00D9 

246 

$00F6 

218-219 

$00DA-$00DB 

249-250 

$00F9-$00FA 

220-221 

222 

223 

224-248 

$00DC-$00DD 

$00DE 

$00DF 

$00E0-$00F8 

553-577 

$0229-$0241 

225•«■• 
249-250 

$00F9-$00FA 

519-520 

$0207-$0208 


POINTER TO CURSOR POSITION [SCREEN POSITION 
ON LINE] 

COLUMN POSITION OF CURSOR [POSITION OF 
CURSOR ON LINE][0-79] 

LOAD START ADDRESS LO;HI [UTILITY POINTER] 
.[TAPE BUFFER, SCROLLING][INVERSE VIDEO 
CURSOR”13 

PRINT LOAD END ADDRESS LOjHI (INCLUDING 
LOCATION 180 

.[END OF CURRENT PROGRAM/TAPE END ADDRESS] 

FLAG FOR QUOTE MODE ON/OFF [DIRECT/PROGRAMMED 
CURSOR*0=DIRECT] 

UNUSED 

CURRENT FILE NAME LENGTH [NUMBER OF CHAR¬ 
ACTERS IN FILE NAME 

CURRENT FILE LOGICAL ADDRESS [GPIB FILE #] 
CURRENT PRIMARY ADDRESS FILE [FILE COMMAND 
(FROM OPEN)][GPIB CMND] 

CURRENT SECONDARY ADDRESS [212 DEVC #][213 
MAX LINE LNTH 40/80] 

START OF CURRENT TAPE BUFFER POINTER LO;HI 
CURRENT SCREEN LINE # [LINE WHERE CURSOR 
LIVES] 

DATA TEMPORARY FOR I/O [LAST KEY HIT(ASCII)* 
BUFFER CHECKSUM] 

POINTER TO CURRENT FILE NAME LO;HI [FILE NAME 
POINTER] 

UNUSED 

CASSETTE READ BLOCK COUNT 
UNUSED 

TABLE OF LSB START ADDRESSES OF VIDEO DISPLAY 
LINES (25) 

..[SCREEN LINE WRAP TABLE] 

INTERRUPT DRIVER FLAG FOR CASSETTE # 1 
cuttmibs. i 0 SWITCHES 


250. 

251-252 

$00FB-$00FC 

247-248 

$00F7-$00F8 

252. 

512-591 

$0020-$0250 

10-89 

$00A0-$0059 







D 1 * . 

593-602 

$0251-$025A 

578-587 

$0242-$024B 

603-612 

$025B-$0264 

588-597 

$024C-$0255 

613-622 

$0265-$026E 

598-609 

$0256-$026l 

623-632 

634-825 

826-1017 

$026F-$0278 

$027A-$0339 

$033A-$03F9 

527-536 

826-1017 

$020F-$0218 

$033A-$03F9 


[249 FOR CASSETTE #1 ON][250 FOR CASSETTE 
#2 ON] 

POINTER TO START LOC FOR O.S. LO;HI [TAPE 
START ADDRESS*TAPE PNT] 

[POINTER TO PROGRAM DURING VERIFY, LOAD] 
BASIC INPUT BUFFER (80 BYTES)[NUMBER OF 
ARRAY SUBSCRIPTS] 

.512-513 IS THE PROGRAM COUNTER 
,514 IS PROCESSOR STATUS 
,515 IS ACCUMULATOR 
,516 IS X INDEX 
,517 IS Y INDEX 
.518 IS STACK POINTER 
.519-520 IS USER MODIFIABLE IRQ 
LOGICAL FILE NUMBERS [LOGICAL NUMBERS OF 
OPEN FILES] 

PRIMARY DEVICE NUMBERS [DEVICE #S OF OPEN 
FILES] 

TABLE OF SECONDARY ADDRESSES [COMMAND/ 
SECONDARY ADRS OPEN FIL] 

INTERRUPT DRIVEN KEYSTROKE BUFFER 
BUFFER FOR CASSETTE #1 (192 BYTES) 

BUFFER FOR CASSETTE #2 (192 BYTES) 
























The Independent PET Users' Group (South) 
has been re-named, and is now known as SUPA 
(Southern Users of PETs Association). 

Their former position as a regional Group 
for IPUG is now terminated. 

Subscription rate for 12 months is now 
5.00. Applicants should contact the 
Membership Secretary: 

Howard Pilgrim 
42 Compton Road 
Brighton 
Sussex 
BN1 5AN 


##««*»»*** 


PET SPEAKS 

Petsoft have released a 10 'Talking 
Claculator' program which generates 
synthetic speech via an inexpensive 
soundbox connected to the user port of the 
Commodore PET microcomputer. 

Once loaded, the program causes the name of 
each numeric or function key to be 
generated as synthetic speeck, followed by 
the result of the calculation. The 
representation of a calculator on screen 
allows the calculation to be tracked 
visually as well. 

As each key is depressed, the computer 
responds with the words: 

"Six...divided...by...four...equals...one 
...point...five". 

The 'Talking Calculator' is available, 
price 10 + VAT from PET dealers, or by 
mail order direct from ACT Petsoft, 66-68 
Hagley Road, Edgbaston, Birmingham, B16 
8PF. A User Port Speech and Music 
Generator with volume control and 
connectors is also on sale priced at 27 + 
VAT 

SPACE INVADERS ZAP PET 

I, for one, have worn the 'A' key out on my 
PET. Here is an ideal solution by G. 
Luxford . 

"I have found the SPACE INVADER program to 
be a knock-out, but the key for beam 
firing, "A" is coming in for severe 
pounding, particularly when other over 
enthusiastic hands get onto the keyboard. 

With the new ROM version a temporary 
solution is to shift the commands onto 
different keys. This can be achieved by 
POKE1409,6 after loading but prior to 
running the program, to shift commands to 
Z, 1 and 3. This location can 
alternatively be POKEd with any value from 
0 to 9, except 4 (present values) to select 


other options for the keyboard. Another 
option is to POKE1938 with 2, 4, 8 or 16 to 
shift the beam fixing key along the key 
row. 

A better solution is to shift the control 
to the user port input. This can be 
achieved by P0KE1414,79 and POKE1417.79. 
Control is then by switch closers to the 
ground line, pin N of PAO on pin C to fire 
beam, PA7 on pin L to move the laser base 
right and PA6 on pin K to move the laser 
base left. You can now use large hefty 
buttons or a joy stick control with 
complete immunity to keyboard damage by 
over-excited saucer shooters. 

You may SAVE the program either by BASIC 
without a name or by TIM monitor, from 
$0400 to $2000. 

The program is also being modified to give 
the option of any alpha key to fire the 
beam, any numeric key to shift the laser 
base and the option of control by the user 
port. This requires appreciably more 
patching and is not yet fully debugged. 

When completed I will send details with a 
revised program to CPUCN. 

I regret not being of direct help to old 
ROM users, having recently become a new 
ROMer, but can only suggest they try the 
recommended program mods and see what 
happens. There seems a good chance this 
will work." 


The result of the PET Show Prize Draw. 

The draw was made by Kit Spencer, in the 
presence of students on a BASIC for 
Beginners course at the Skyway Hotel on 17 
June. 

The winner of the 95 software prize is:- 


E Ramsden 
The Country House 
123 Greenland Road 
Hemel Hempstead 
HK1 1RT 
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